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I. 


INTRODUCTION 


The advent of semicustom digital integrated circuits is 
indicated by the increasing number of manufacturers 

supplying these devices 11]. In general, the semicustom 
digital IC approach uses a standard array of electronic 
components which require only metal interconnection for 
customization. Among the advantages of this approach are: 

- Design secrecy, 

- Potential reliability gain due to reduced chip and 
interconnection counts, 

- Power reduction, and 

- Size reduction. 

, While the true custom integrated circuit approach 
(requiring customization of diffusions as well as 
interconnections) shares these advantages, the typical cost 
and quantity requirements may be prohibitive to a low-volume 
user . 


The Standard Transistor ARray (STAR) developed at 
Marshall Space Flight Center (2] is an approach to low-cost 
semicustom IC development. This system uses a predefined 
array of transistors with a comprehensive library of 
standard digital logic elements (cells) to achieve ease of 
circuit implementation. Internal cell connections are 
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standardized so that the user need not be concerned with the 
actual devices, but only with cell interconnections. 

While manual layout and routing of cells on a STAR is 
possible, handling of large circuits can become complex. 
Thus, the design of an automated placement and routing 
system has been undertaken. The organization of the layout 
portion of this system is described in this report. The 
remaining portions of this section will describe the system 
objectives and STAR modelling. Later sections will outline 
the placement procedures, their implementation, and 
experimental results. 


PLACEMENT OBJECTIVES 

The following considerations dictate the objectives of 
the placement procedure; 


1. Since large computing systems may not be available to 
many potential system users, the automated procedures 
should be adaptable to relatively inexpensive computers 
with limited processing power and graphics capability. 
In addition, the procedures should execute and provide 
results as quickly as possible. 


2. The STAR consists of a row-column organized array of 
complementary MOS transistors with a cell residing 
entirely on one double transistor row. A typical STAR 
cell is shown in Figure 1. Two levels of metallization 
(one for vertical paths and the other for horizontal 
paths) are used botn for internal and external cell 
connection. Since each direction of routing is, for the 
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Figure 1. STAR Logic Cell 
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most part, isolated from the other, a number of paths 
for non-terminating routes exist through a cell. In 
general, tnere are four of these global paths per 
double transistor row available in the horizontal 
direction and one per transistor column in the vertical 
direction (Figure 2). The placement procedure, then, 
should produce a cell arrangement which can be routed 
without violating global path restrictions. 


3. Since vertical and horizontal paths are formed on 
different levels, an interconnection which does not 
follow a straight line requires a VIA between levels 
through the insulation oxide. An objective of the 
placement technique is to hold the number of VIA's 
required to a minimum by maximizing the number of 
connections routable as straight lines. 


STAR MODELLING 


The row-column organization of the transistor array 
lends itself to a matrix-oriented model of the STAR. For 
convenience in the placement process, each double row of 
complementary transistors in the array is called a cell row 
and is represented as a single row in tne matrix model. An 
n X m transistor array,’ then, is modelled with an ( n/2 ) 
cell row by m transistor column matrix. In this matrix, 
placed cells occupy a single row and a number of columns 
across the row. The number of transistor columns occupied 
by a cell is called the cell's width. 

The exact modelling of a cell and its external 
connections involves the specification of interconnection 
locations for each cell. The internal structure of a cell, 
however, is typically bus-oriented and there may be a large 
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Figure 2. STAR Logic Cell Global Paths 
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portion of the cell boundary which can be crossed by a 
straight connection to any given bus (Figure 3). For 
placement purposes, then, the entire cell boundary is 
regarded as the range of all internal connection points and 
a p-cell net is modelled as straight if: 

1. All p cells reside on the same cell row, or 

2. There is at least one transistor column passing through 
all p cells. 




c 

o 


u 

a> 

c 

c 

o 

o 


4-> C 
«J - 
o. 

l/> 

a/ Z3 
r- CO 
XI 

•I- O 

to +-> 
in 
o 
a. 


Figure 3. STAR Logic Cell Bus Range 
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PLACEinENT METHODOLOGY 


The STAR placement procedure described here may be 
viewed as being composed of four tasks. 


1. The network description task, in which the nets and 
cells of the network are defined and network definition 
databases are constructed. 

2. The cell clustering task, in which groups of cells are 
combined based on their interconnection strength. 

3. The linear ordering task, in which the formed cell 
clusters are used to specify a one-dimcnsional ordering 
of the cells. 

4. The placement task, in which the linear order is mapped 
onto the 2-dimensional STAR subject to chip size 
constraints . 


A description of each of these tasks will be given in 
the following sections. 


NETWORK DESCRIPTION 


For the placement problem, a digital network may be 
considered as a set of nets interconnecting a set of network 
gates (cells) . The network description task, then, involves 
specifying, for each net in the system, the cells that the 
net connects. This information is placed in a list of net 
and cell numbers called a net list. In addition, it is 
necessary to include information on network pads and on cell 
widths in the databases constructed. Tnis information is 
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used in the succeeding segments of the placement proceedure. 
An example network is shown in Figure 4, with the pertinent 
network description shown in Figure 5. 


CELL CLUSTERING 


The clustering procedure is similar to the method 
described in [3]. Several considerations are important in 
the design of this procedure: 


1. Due to the structure of the linear ordering segment, 
the earliest-clustered elements tend to be neighbors in 
the linear ordering and in the final placement. 
Experimental results on actual digital networks show 
that, as a rule, the majority of nets connect only two 
or three cells. Thus it is desirable to cluster cells 
in two or three cell nets early in the procedure to 
provide maximum nearness of these cells in the 
placement. This can be accomplished by initially 
considering only cells (or clusters) in two or three 
cell nets for combination. In the clustering 
procedure, the variable ALL is used to control 
clustering by forcing consideration only of nets 

containing three or fewer cells prior to the formation 
of ALL clusters. 


2. As noted in [3], early formation of large clusters 
tends to destroy information about smaller clusters 
since the large clusters typically may be very strongly 
connected to unclustered cells. A reasonable solution 
to this problem is the restriction of cluster size to 
allow a more uniform rate of cluster development. The 
parameter WMAX is used in the procedure as the cluster 
size restriction. 


3. While computation of a clustering value for all 
connected pairs of cells (or clusters) at a given stage 
of cluster development isolates the most profitable 
pair to cluster in che next stage, it also is very 
time-consuming for large networks. The approach 
selected here involves the sotting of a clustering 
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Figure 4. Example Network 


NETS: 

CELL WIDTHS: 

PADS 

1- 1,2,3 

1 - 0 

1 

2- 2,3 

2-2 


3- 3,4 

3-8 


4- 2,4, 5, 6 

4-4 


5- 5,6 

5-3 



6-7 



Figure 5. Example Network Description 
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value threshold, the examination of the clustering 
value of unclustered connected cells (and clusters) , 
and the combination of those pairs whose value meets 
the threshold. This method produces results near in 
quality to the first method, yet requires less 
processing time. Selection of the clustering 
threshold, Z7, will be discussed in a later section. 


4. The combination of a cell pair depends, for the most 
part, on the 'connectedness' of the pair. Thus, to 
achieve 'good' clusterings, a number of decisions 
regarding interconnection modelling and connectedness 
computation must be made. Among the factors which must 
be considered are: 

a) The representation of multi-cell nets, and 

b) The effect of indirect connections between 
connected cells (cycles) . 

The clustering method presented here may be considered 
as a net absorbing process which requires no special 
handling of multi-cell nets. The procedure, then, 
requires no explicit multi-cell net model. Indirect 
connections are considered on a limited scale by the 
inclusion of factors regarding their presence in the 
computation of the clustering value. 


5. Clustering size restrictions previously mentioned may 
produce a final state which is composed of several 
clusters. Since the linear ordering process (to be 
described in a later section) requires a single cluster 
as a starting point, a final clustering step, performed 
without regard to cluster size, may be necessary. 

Also required by this later step is an ordered record 
of cluster formation showing the cell or cluster pair 
used for forming each cluster (the constituents of the 
cluster) . This record will be referred to as the 
' Clustering History Record (CHR) . To aid in maintaining 
order within this list, the first cluster is assigned 
the number 501 with succeeding clusters numbered 
sequentially. The variable C5 is used for cluster 
counting in the procedure. 
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CLUSTERING PROCEDURE 


The clustering procedure developed will now be 
described. For convenience, the term cluster will be used to 
describe both individual cells and cell clusters. 


1. Set ALL (number of clusters to be formed using two or 
three cluster nets) , WHAX (maximum cluster size) , and 
Z7 (clustering value threshold). C5=0. 


2. Select the next net in the net list which is not 
completely contained in a cluster. If the list is 

exhausted, go to step 8. 


3. If C5 < ALL and the net contains more than three 
clusters, repeat step 2. 


4. Pick 2 clusters, Cl and C2, in the selected net for 
trial combination such that the size of the resulting 
cluster would be less than or equal to WMAX. If none 
exist, go to 2. 


5. Compute the clustering value of Cl and C2. 


6. If the computed clustering value is less than Z7, 
repeat step 4. 


7. C5=C5 + 1. Combine Cl and C2 to form cluster 
C = 500 + C5. Add Cl, C2, and C to an ordered list of 

cell combinations, the clustering history record (CHR) . 
Update the net lists to reflect this combination. Go 
to 2. 


8. If any combinations were performed on the last pass 
through steps 2-7, go to step 2 restarting at the 
beginning of the net list. 
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9. If more than one cluster remains, combine clusters in 
pairwise fashion until only one cluster remains. As 
each new cluster is formed, note the formation in the 
CHR. When only one cluster remains, stop. 


CLUSTERING VALUE COMPUTATION 

A number of methods for computing and checking the 
clustering values against the threshold (steps 5 and 6 of 
the clustering procedure) are conceivable. The procedure 
used here considers effects of both direct and indirect 
connections between the cluster pair of interest. Also 
considered are effects of connections from the pair that may 
cause more profitable clustering of one element of the pair 
with some other cluster. 


Prior to the description of the cluster value 
computation technique, the following terms will be defined: 


n-net 

m-cycle 

simple m-cycle 
complex m-cycle 


- A net which interconnects exactly n 
clusters (Figure 6. a). 

- A cycle of interconnections on 
exactly m clusters (Figure 6.b). 

- An m-cycle in which each 
interconnection is a 2-net (Figure 
6 . c ) . 

- An m-cycle which is not a simple 
m-cycle . 


The cluster value computation procedure may now be 


described for two connected clusters. Cl and C2: 
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1 n 




b) m-cycle 



Figure 6. Terminology 
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1. Set Z3 = (If 2-nets incident to both Cl and C2) , Z1 = (# 
nets incident to Cl, but not C2) , and Z2 = {# nets 
incident to C2, but not Cl). 

2. If Z3 - Z1 >= Z7 or 23 - Z2 >= Z7 combine Cl and C2. 
Otherwise, proceed to step 3. 

3. Set Z5 = (# 3-nets incident to both Cl and C2) . 

4. Set Z6 = Z3 - {(Zl + Z2 - Z5) / 2) + .5. If Z6 >= Z7 
combine Cl and C2. Otherwise, proceed to step 5. 

5. Set Z8 = (# complex 3-cycles containing both Cl and 

C2) . Set Z9 = (# simple 3-cycles containing both Cl and 

C2). 

6. If Z6 + (Z8 / 2) + Z9 >= Z7 combine Cl and C2. 

Otherwise, Cl and C2 should not be combined. 

Figure 7 shows several example network segments and 
Table 1 shows connection values for various cell pairs 
within the segments. Also shown in Table 1 is the maximum 

threshold value under which each cell pair will combine. 

Examination of this table shows that a higher maximum 
threshold for combination of a cell pair corresponds to a 
higher degree of 'connectedness* between the cells with 
respect to connections to other cells. A clustering for the 

network of Figure 4 is shown in Figure 8. 
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Figure 7. Typical Network Segments 
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TABLE 1. CELL COMBINATION EXAMPLES 


CELLS Z1 Z2 Z3 Z5 Z8 Z9 Z6 


MAX Z7 FOR 


Cl C2 


COMBINATION 


A B 10 

C - D 2 4 

C E 2 3 

D E 3 2 

F G 0 2 


10 0 0 
10 11 
10 11 
1111 
0 12 0 


1 1 

-1.5 0 

-1 .5 

-.5 1 

0 1 


F H 


0 10 12 0 


.5 


1.5 


F J 110 


2 0 -.5 


.5 


G H 


10 112 0 


1.5 


2.5 


G J 


2 0 1 


0 2 0 .5 


1.5 


J H 


1 2 0 0 2 


-1 


0 
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LINEAR CELL ORDER FORMATION 


Following execution of the clustering task, the CHR is 
used to form a linear placement of the network cells in 
which the linear distance between connected cells is 
minimized. The procedure used for this placement is similar 
to the top-down linear placement technique described in [3]. 


The concept underlying this technique is that cells 
which were combined early in the clustering process are more 
strongly connected to each other than to other cells. These 
cells, then, should be made adjacent in the linear 
placement. 


The linear ordering procedure will now be described. 


1. From the CHR, obtain the highest-numbered cluster 
formed (the cluster containing the entire network) . 
Split this cluster into its two constituents (the 
cluster pair used to form the cluster) . Place these 
constituents in an arbitrary order in the linear 
placement . 

2. Identify the highest-numbered cluster, CM, in the 

linear placement (if no clusters remain, stop). From 
the CHR, identify the constituents of CM, CA and CB. 

3. We desire to replace CM with CA and CB in the 

placement. There are two possible orientations for 
these constituents. To identify the optimal 
orientation, consider the linear placement as 

NL CM NR 

where NL and NR are all the other clusters in the 

placement on the left and right side of CM, 

respectively. Then compute 

L(A) = # nets from CA to NL, 
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■ R(A) = # nets from CA to NR, 

L(B) = # nets from CB to NL, and 

R(B) = # nets from CB to NR. 

4. Compute 

X(A) = L(A) - R(A) 

X(B) = L(B) - R(B) . 

If X(A) > X(B), CA is more strongly connected to NL and 
CB to NR, and the linear order should be 

NL CA CB NR 

Otherwise, the order should be 
NL CB CA NR. 

5. Go to 2. 

An example of this procedure is shown in Table 2. 


PLACEMENT PROCEDURE 

Following formation of the linear cell ordering, the 
linear placement must be mapped onto a STAR. The hypothesis 
underlying the placement procedure presented here is; 


1. The linear placement constructed represents a 
near-optimal (linear) placement with regard to 
connection length. The two-dimensional placement, 
then, should preserve or reduce the intercell distances 
wherever possible. In particular, adjacent cells in 
the linear order should also be made adjacent on the 
STAR. 


2. From the standpoint of the circuit designer the primary 
objective of the placement procedure is to fit the 
finite-size cells onto the STAR. 
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TABLE 2. FORMATION OF LINEAR PLACEMENT 
FOR NETWORK OF FIGURE 4 


PASS CM CA CB L(A) L(B) R(A) R(B) ORDER 

0 - 503,504 

1 504 502 1 1000 503,502,1 

2 503 6 5 0011 5,6,502,1 

3 502 501 4 1110 5,6,4,501,1 

4 501 3 2 1111 5, 6, 4, 2, 3,1 
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The placement procedure, then, should be designed to 
achieve a balance of these two objectives. 

BASIC PLACEMENT PROCEDURE 

The placement method selected involves 'folding' the 
linear placement (with pads deleted) onto the STAR. The 
folding process may be accomplished by placing the cells 
from the linear ordering along a row in one direction and in 
the opposite direction on the next row as indicated in 
Figure 9. a. This organization, however, forces the majority 
of nets to pass through the rows horizontally. Since the 
horizontal global paths through the cells, ate ^limited, this 
procedure may result in overcrowding of net paths with 
resulting difficulty of routing. 

An improved method of performing the folding operation 
forms double rows of cells from the linear ordering as 
illustrated in Figure 9.b. This organization allows some 
spreading of the nets both in the horizontal and vertical 
directions, resulting in reduced horizontal global path 
utilizatic 1 . Almost all adjacencies from the linear 
placement are preserved by this method and most cells also 
become adjacent to the cells that they were previously one 
cell away from. 
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A procedure for performing this folding operation will 
now be presented. For convenience, the following notation 
is defined: 


LMRn - Left-most unfilled region on row n 
RMRn - Right-most unfilled region on row n 
L(I) - Ith cell in linear order. 

The placement procedure is: 


1. Place L(l) at LMRl. Place L(2) at LMR2. LT0R=1 (1 for 
lef t-to-r ight placement, 0 for r ight-to-lef t) , 1=3 

(linear list pointer) , J=l (J, J+1 are cell rows 

forming current double row) , FLAG=0. 


2. If all cells are placed, denote success and stop. 


3. If there is more unfilled space on row J than on row 
J+1, K = J and L = J+1. If there is less space, 
K = J+1 and L = J. If the space is equal, keep the 
previous K and L. 


4. If LTOR=0 go to 6. 


5. If L(I) will fit at LMRK, place it there, I = I+l» go 
to 2. Otherwise, go to 7. 


6. If L(I) will fit at RMRK, place it there, I = I+l, go 
to 2. 


7. If FLAG=0 swap L and K, FLAG=1, go to 4. 


8. LTOR = LTOR-1 (change placement direction for next 
double row), J = J+2, K = J, L = J+1, FLAG=0. 
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Otherwise , 


9. If J < # cell rows in array, go to 3. 
denote failure and stop. 

An example placement obtained by use of this procedure is 
shown in Figure 10. 


CELL SIZE CONSIDERATIONS 

Experimental results show that sparsely populated (i.e. 
large ratio of array area to total cell area) STARs are 
easily laid out using this folding technique. As total cell 
area approaches array area, however, this procedure may 
result in unplaced cells after all appropriately-sized 
regions of the array are filled. A modification to the 
procedure is necessary to handle this situation. 

The following points were considered in the development 
of this modification; 


1. As shown in Figure 11, the previous procedure may 
succeed in placement of a network, yet fail for the 
same network with a different linear ordering. The 
modification, then, can include reordering of the 
linear placement followed by an attempted replacement 
on the STAR. 


2. Since a balance between the placements specified by the 
linear ordering and the size restrictions of the array 
is desired, the modification should not change the 
linear placement to a degree greater than required. 


3. The folding procedure outlined begins a new double row 
of cells whenever adding the next cell of the linear 
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LINEAR ORDER 1 2 3 


1 

1 

3 

2 

2 

2 


a) Complete Placement 


LINEAR ORDER 1 3 2 


1 

1 

- 

3 

- 

- 


b) Incomplete Placement 


Figure 11. Example of Placement Failure 
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order to the current double row would exceed the array 
width. The 'holes' remaining may be large enough to 
contain some other cell of the network. A modification 
of the procedure to fill these holes may result in 
complete placement. 


MODIFIED PLACEMENT PROCEDURE 

Based on these considerationsr the modification to the 
basic procedure consists of the addition of two processes. 
The first of these/ the rotation process, takes a linear 
ordering with form: 

C1,C2, ::::,CI/CJ,::::CN 
and produces the new linear ordering: 


CJ, : : : : /CN,C1/C2, : : : : ,CI. 


To reduce the effects of this reordering, a list of the 
number of nets crossing each cell boundary in the linear 
ordering is formed prior to execution of the placement 
routine. The cell boundary selected for performing a 
rotation is the boundary which is crossed by the minimum 
number of nets for all previously untried boundaries. In 
this way, the interconnecting nets disrupted by the rotation 
operation is held to a minimum. 


The second process, the lookback process, consists of 
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the scanning of a limited number of preceding array rows for 
holes large enough to contain the current cell to be placed. 
If one is found, the hole is filled. Since this process may 
place a cell several rows from the location specified by the 
linear ordering, the lookback process is invoked only after 
failure of the rotation process. 

The modified folding procedure is: 


1. LBK=0 (# rows for lookback process) . 

la. Place L(l) at LMRl. Place L{2) at LMR2. LT0R=1 (1 
for lef t-to-r ight placement, D for right-to-left), 1=3 
(linear list pointer), J=1 ( J , J+1 are cell rows 

forming current double tow), FLAG=0. 

.2. If all cells are placed, denote success and stop. 

3. If there is more unfilled space on row J than on row 
J+l, K = J and L = J+1. Otherwise, K = J+1 and L = J. 

3a. Scan rows J - LBK through J - 1. If L(I) will fit on 
one of these rows, place it there, I = I+l, go to 2. 

4. If LTOR=0 go to 6. 

5. If L(I) will fit at LMRK, place it there, I = I+l, go 
to 2. Otherwise, go to 7. 

6. If L(I) will fit at RMRK, place it chere, I = I+l, go 
to 2. 

7. If FLAG=0 swap L and K, FLAG=1, go to 4. 

8. LTOR = LTOR-1 (change placement direction for next 
double row) , J = J+2, K = J, L = J+1, FLAG=0. 

9. If J < # cell rows in array, go to 3. 

10. If any rotations have not been tried, rotate original 
linear placement using minimum boundary crossing, go to 
la. 

11. LBK = LBK + 1. If LBK > (# rows in array - 1) , denote 
failure and stop. Otherwise, reset rotation trial 
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history (no rotations tried) and go to la. 


The rotation process can be illustrated by considering 
a network with configuration identical to the network of 
Figure 4, but with cell widths as follows: 


CELL # 


WIDTH 


1 

2 

3 

4 

5 

6 


0 

4 

2 

7 

8 
3 


(pad) 


The clustering and linear ordering tasks for this 
altered network produce the linear order 


5 6 4 2 3 1 


as before. The boundary crossing data (neglecting pads) for 
this order is: 
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BOUNDARY 



LEFT 

RIGHT 

NETS CROSSING 

RANK IN 

CELL 

CELL 

BOUNDARY 

CROSSING 




LIST 

5 

6 

4,5 

2 

6 

4 

4 

1 

4 

2 

3,4 

3 

2 

3 

1,2,3 

4 


Due to the altered cell widths, the original linear 
order cannot be placed on a 3-row by 9-column STAR. The 
first rotation of the order would be performed at the 
boundary between cells 6 and 4 to produce, the order, 

4 2 3 5 6. 

This ordering also cannot be placed on the STAR. 

The second rotation would then be performed on the 
original order at the boundary between cells 5 and 6 to 
produce : 


6 4 2 3 5 


which can be placed as shown in Figure 12. 






















III. PROGRAM IMPLEMENTATION 


The procedures described in the preceding sections have 
been implemented as a series of programs in the BASIC-PLUS 
language on a PDP 11/40 time sharing system (RSTS/E v06C 
operating system). The high-level program and database flow 
is shown in Figure 13. A listing of each program is shown 
in Appendix A. The functional organization of each of the 
programs will be described in this section. 


NETWORK INPUT PROGRAM (NETIN) 

The network description task is handled by the network 
input program, NETIN. Four network description subtasks are 
performed by this program; 


1. A name is assigned by the user to the network. This 
name is used for output reference and for database 
handling. In following sections, the network name will 
be referred to as 'netname'. 


2. The list of cells in each net of the network is entered 
by the user and the lists are stored by NETIN in the 
file netname. NCL. 


3 . 


The width (in transistors) of each cell in the network 
is defined by the user and stored in the file 
netname. WID. Two options for cell width definition are 
provided : 


a) Assignment of default cell widths. This option 
causes all network cells to be defined as one 
transistor in width. 
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Figure 13. High Level 
System 
Flow 
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b) Exact specification of cell widths by the user. 
When this option is selected, any unspecified cell 
widths are set to the default width. 


4. The pads of the network are defined by entering the 
user-assigned cell number used in the net lists. The 
width of each pad is set to 0. The pad list is stored 
by NETIN in the file netname.PAD. 

An example NETIN execution is shown in Figure 14, The 
structure of the files netname.NCL, netname.WID, and 
netname.PAD is shown in Figure 15. 

NETWORK CELL CLUSTERING (PARTIT) 

The network cell clustering task is implemented by 
PARTIT. The logical flow of this program is as shown in the 
cell clustering procedure in a preceding section, 

PARTIT obtains the network description data from the 
files netname.NCL and netname.WID (since pad identification 
is not necessary for the clustering procedure, the file 
netname.PAD is not used by PARTIT). Data entered by the 
user consists of: 

1. netname, 

2. value of WMAX (maximum partition size), and 

3. value of Z7 (clustering value threshold). 

Two databases are constructed by PARTIT. The first of 
these, netname. PRT, contains the clustering history record 
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NET NAME? XMPL 


NET 1 

tCELLS (0 TO STOP)? 3 
? 1 , 2,3 
NET 2 

tCELLS (0 TO STOP)? 2 
? 2,3 
NET 3 

KELLS (0 TO STOP)? 2 
? 3,4 
NET 4 

KELLS (0 TO STOP)? 4 
? 2 , 4 , 5, 6 
NET 5 

#CELLS (0 TO STOP)? 2 
? 5,6 
NET 6 

KELLS (0 TO STOP)? 0 


DEFAULT WIDTHS (1)? NO 

CELL #, WIDTH (0,0 TO STOP) 
? 2,2 
? 3,8 
? 4.4 
? 5,3 
? 6.7 
? 0,0 


PAD (0 TO STOP) 
? 1 
? 0 

Ready 


Figure 14. Example NETIN Execution 


i 
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netname.NCL 

Al, A2, A3, 
\ ^ 

cells in 
net 1 

netname.WID 
Wl, W2. W3, 


netname. PAD 
PI, P2, — 
# 


0, Bl, B2, 0, 

N / 

cells in 
net 2 


Ql. Q2. 0. -1 

end of file 


— , WI, — , WN 

Width of 
cell I 


PI, — , PM 

of Ith 
pad 


Figure 15. Structure of .NCL, .WID, .PAD Files 
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(CHR) . The second database, netname.TRK, contains, for each 
net in the network, the number of the smallest cluster which 
completely contains the net. This information is used in 
later programs. 

The data output to the user by PARTIT includes the net 
lists of the network, a record of cell combination, net 
lists and cluster sizes prior to the final step of the 
procedure (collapse) , and the record of the collapsing step. 

An example execution of PARTIT is shown in Figure 16. 
Organization of the files netname.PRT and netname.TRK is 
shown in Figure 17. 

LINEAR PLACEMENT FORMATION (CELNET-LINEUP) 

Two programs are used to implement the linear ordering 
task. The first of these, CELNET, uses the files 
netname.NCL, netname.PRT, and netname.TRK to produce 
netname.CLN. This database contains, for each cell in the 
network and for each cluster formed by PARTIT, a list of the 
nets that the cell or cluster is in. The structure of this 
file is, shown in Figure 18. a. 

The second program, LINEUP, uses netname.CLN and 
netname.PRT to perform the linear ordering procedure 
described in a previous section. The database produced. 
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NET NAME? XMPL 
MAX CLUSTER SIZE (WMAX)? 20 
CLUSTERING THRESHOLD (Z7)? .5 
OUTPUT TO? KB: 


******************** XNPUT DATA ******************** 

NETNAME - XMPL WMAX =20 Z7 = .5 


NET # i 
NET # 2 
NET # 3 
NET # 4 
NET # 5 


1 2 

2 3 

3 4 
2 4 
5 6 


3 


5 6 


************** initial CLUSTERING STEP ************** 


CELLS 

CONSIDERED 

CLUSTER 

CLUSTER 

FOR 

COMBINATION 

WIDTH 

FORMED 

1 

& 

2 



1 

& 

3 



2 

& 

3 

10 

501 

4 

& 

501 

14 

502 

5 

& 

6 

10 

503 

1 

& 

502 




*************** final CLUSTERING STEP *************** 


1 & 

502 

14 

504 

503 

& 504 

24 

505 


**************** CLUSTER COMPOSITION **************** 


CLUSTER — COMPOSED OF CELLS 

501 2 3 

502 423 

503 5 6 

504 1423 

505 5 1 6 4 2 3 


Figure 16. Example PARTIT Execution 
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netname.PRT 


ith 

Cluster 


501 

XI 

Y1 

502 

X2 

Y2 

- 

- 

- 

- 

- 

- 


■ ^ 

if 

50i 

Xi 

Yi 


Constituents of 
ith Cluster 


netname.TRK 


Cl 

C2 


Cj is 
Smallest 
Cluster 
Containing 
Net # Nj 


Cj 


N1 

N2 


Nj 


Figure 17. Structure of .PRT, .TRK Files 
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l.Nl, 1.N2, — , l.NK, 2.NL, 

\ f 


Cell #1 in Nets 
Nl, N2, — , NK 


J.NI, 


501. NP, 


a) netname.CLN 


Cl, C2, C3, — , Cl. — , CN 

+ 

Ith Cell 1n 
Linear Order 


b) netname.LIN 


Figure 18. Structure of .CLN, .LIN Files 
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netname.LIN, contains the linear ordering for the network. 
The organization of this file is shown in Figure 18. b. 

STAR PLACEMENT FORMATION (CROSS-FOLD) 

The placement of the linear cell ordering on a STAR is 
accomplished by two programs. One of these, CROSS, forms 
the database netname.CRS which contains the linear cell 
boundary crossing data required for the rotation process in 
the placement procedure. 

The second program, FOLD, executes the modified 
placement procedure previously described. . User inputs to 
this program consist of the netname and the desired STAR 
size (cell rows by transistor columns) . The output of this 
program consists of a history of lookback distance increase, 
the final (rotated) linear order, notification of placement 
success or failure, and the arrangement of the cells on the 
STAR. The placement is also output to form the file 
netname .FLD. 

An example of the execution of FOLD is shown in Figure 


19 . 
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CHIP DIMS(R,0? 3,9 
NET NAME? XMPL 
OUTPUT TO? KB; 


INITIAL LOOKBACK DISTANCE IS 0 
ALL CELLS PLACED AFTER ROTATION # 0 

FINAL ROTATED LINEAR ORDER 

5 

6 
4 
2 
3 


555444422 
666666600 
03 33* 3 3 3 3 ' *3 


Ready 


Figure 19. Example FOLD Execution 


<» 
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UTILITY PROGRAMS (RATER, LITLAY) 

To aid in the use and evaluation of the STAR placements 
generated, two utility programs have been developed. The 
first of these, RATER, forms a percentage rating of a cell 
placement (neglecting pads) based on the number of nets 
which could potentially be routed as straight connections. 
The procedure used computes, for each net, whether 

1. All the cells of the net occupy a single cell row on 
the STAR, 

2. There is at least one transistor column which passes 
through all the cells of the net, or 

3. Neither 1 nor 2 occurs. 

In case 3, there is no possibility of straight routing. If 
case 1 or 2 occurs, there is at least the potential for 
straight routing and the net is counted as straight. 

The output of RATER consists of a list of net sizes 
(neglecting pads) , the number of nets of each size, the 
total number of circuit nets, and the overall percentage of 
nets that are straight. An example of this output is shown 
in Figure 20. 

The second utility program, LITLAY, forms a 
line-printer output of the cell placement as shown in Figure 
21. In the output of this program, a cell is shown as 


follows: 



0 


45 


NET NAME? XMPL 


NET SIZE 
2 

NUMBER NETS 
4 


% STRAIGHT 
100 

4 

1 

t 

0 


TOTAL # NETS ANALYSED 5 
# STRAIGHT 4 
% STRAIGHT 80 

Ready 


Figure 20. Example RATER Execution 
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net name? XMPL 
PAPER WIDTH? 50 
OUTPUT TO <KB;>? KB: 

HEADER <NET NAME>? EXAMPLE LITLAY EXECUTION 


EXAMPLE LITLAY EXECUTION 


«#######################«##»################## 

#5-4 
# - 


:5 ; 

, #4-3 :4 ; 

: #2-1 

:2 4 # 


# - : : 

: # - 

; # 


# - : : 

: # - 

: # 


###«########################################## 


#6-4 
# - 
# - . 


# 0 - # 0 - # 

# - # 

# - # - # 


#0- #3-1 ;2 3 ; : : : : : # 
#-#-: : : : : : ; # 
# -^^ # - : : ■ : : : ' ^ # 
f############################################# 


Ready 


Figure 21. Example LITLAY Execution 
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«###«««## 

# X - Y : Z # 

# X - Y : Z # 

# X - Y : Z # 

#»####«#« 

where '#' represents the cell boundary, indicates a 

transistor column boundary internal to the cell, 'XXX' is 
the cell number and 'YYY' and 'ZZZ' are the numbers of the 
nets that the cell is in. 

Since the connection points of all nets are indicated 
in the LITLAY output, hand touting of the placed network can 
be easily accomplished. 



IV. SYSTEM PERFORMANCE 


Several example networks have been used for checking 
the operation of the placement system. The characteristics 
of four of these networks are shown in Table 3. System 
performance for these networks will be described in this 
section. Placement quality and other method testing results 
will be described first, followed by program execution 
timing. 


PLACEMENT QUALITY 

The quality measures of the STAR placements generated 
by this system have been computed based on the results of 
RATER executions (i.e,, on the percentage of potentially 
straight nets) . The quality testing scheme used is: 


1. For a test network, form a STAR placement using the 
placement system and find the overall straight-net 
rating, T. 


2. Perform a large number of random placements for the 
network (for the same STAR size) and save the rating of 
each. 


3, Use the data from steps 1 and 2 to form an approximate 
normalized Gaussian distribution of placement ratings, 

G. 
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TABLE 3. TEST NETWORK PARAMETERS 


NETWORK 




CELL SIZE 


NAME 

GATES 

PADS 

NETS 

RANGE 

COMMENTS 

XMPL 

4 

1 

5 

00 

1 

<M 

SHOWN IN FIG. 4 

NAS101 

25 

14 

35 

4-16 

MSFC'S CO-101 

NAS15 

95 

15 

104 

4-16 

MSFC's CO-15 

SAUCKT 

26 

5 

33 

1 

CIRCUIT FROM [3] 
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4. Compute the placement quality, Q, by integrating G from 
its lower limit to the image of T. Then Q is the 
probability that the rating of any placement of the 
network is less than T. 


The results of the placement quality testing procedure 
for the NAS101 and NAS15 networks are summarized in Table 4. 
These results indicate that over 99% of the possible 
placements for these networks can be expected to have lower 
straight net ratings than the system-generated placements. 
Tests performed on the XMPL and SAUCKT networks indicate 
similar high placement qualities. 

Example system execution for the XMPL network has been 
shown in previous sections. System executions for the 
NAS101, NAS15, and SAUCKT networks are shown in Appendix B. 

METHOD TESTING 

Several other checks have been performed on the methods 
outlined. The objectives and results of these tests are 
outlined below. 


1. The clustering method attempts to combine cells in the 
order in which they appear in the net list and not in 
the order of 'next-most clusterable cells'. To 

determine the effects of this procedure, a number of 
re-orderings of the net lists for the test networks 
were performed followed by placement end rating for the 
resulting lists. While variations in the formed 
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NETWORK 


NAS101 


NAS15 


TABLE 4. PLACEMENT QUALITY 


T RANDOM PLACEMENTS 

(300 RUNS) 

MEAN S.D. 


65.6% 45.7% 7.16% 


' 65.3% 26.32% 8.029% 


.9973 


.999999 
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clusters were noted, very little effect on the final 
placement ratings was produced indicating satisfactory 
clustering performance. In addition, the clustering 
method used should require less execution time than 
other techniques since the clustering value for all 
connected pairs of network cells is not computed prior 
to each cell combination. 


2. Since the combination of a pair of cells depends to a 
high degree on the clustering value threshold, Z7, a 
study of the effects of variation of this parameter was 
performed. Results of this study, while providing no 
immediate relationship between Z7 and placement rating, 
indicate that a clustering threshold of 0 to .5 
produces the most consistently high ratings. 


3. The quality of the linear placement formed in the 
procedure can best be measured by computing the total 
length of connection medium required to route all nets 
in a linear manner (wire units) . While a complete 
study of wiring length has not been performed, several 
linear placements of the SAUCKT network have been 
analysed. These studies indicate that results within 2 
percent of optimum, as reported for the procedures of 
[3], are typical. Both linear placement methods 
resulted in a wire unit measure of 97 for this network. 


4, No guaranteed solution is provided by the final 

placement method. Thus, the performance of this 

technique is of great concern. Over 900 trial 

executions of FOLD with various networks and STAR sizes 
have been performed. No FOLD failures (i.e. the 
network can be placed on the STAR, but FOLD performs 
incomplete placement) have been identified. For high 
STAR densities, however, straight net ratings may 
decrease markedly due to the increased dependence on 
the rotation and lookback processes. It is anticipated 
that FOLD failures, if they exist, will be found at 
these high STAR densities (> 95% of transistors used) 
and should not occur for low-to-moderate STAR 
densities . 
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EXECUTION TIMING 


Due to the multi-user environment in which the system 
programs are implemented, consistent program execution times 
are difficult to obtain. However, typical times for network 
placement (excluding network entry) have been identified. 
These execution times range from less than 1 minute for the 
XMPL network to over 100 minutes for the NAS15 network under 
heavy system loading. 

Analysis of the execution of program segments shows 
that the most time-consuming operations are; 

1. Reorganization of the net lists following each cell 
combination in PARTIT, 

2. Sorting of the cell-net lists in CELNET, and 

3. Computation of the left and right net counts in LINEUP. 

Results from [3] indicate that procedures roughly 
equivalent to PARTIT, CELNET, and LINEUP execute in time 
approximately linear with the number of network cells. It 
is anticipated that improvements to the system described 
here will provide similar execution time characteristics. 



V. COllCLUSION 


Techniques for the placement of digital logic cells on 
STARS have been presented. The methods described have been 
computer-implemented and typical results have been shown. 


Experimental results show near-optimum STAR placements 
can be achieved with respect to network routability while 
requiring a minimum of processing capability. 

A number of areas for future work are indicated. Among 
these are; 


1. Optimization of the existing system to provide 
execution speed in direct proportion to tne number of 
network cells. 

2. Implementation of a pseudo-router for STAR placements 
to provide more exact placement ratings based on 
network routability. This program would not attempt to 
route the nets, but to identify situations which might 
lead to routing difficulties and, based on this, to 
produce a placement rating. 

3. Implementation of a placement improvement procedure to 
optimize a STAR placement with respect to the ratings 
obtained from the pseudo-routing. 

4. Modification of FOLD to assure complete placement of 
networks and to provide notification (short of 
exhaustive testing) of unplaceable networks. 

5. Use and generalization of the placement ratings to 
identify modifications to the system which would allow 
further performance improvement. 

6. Development of a portable FORTRAN IV version of the 
placement system. 
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APPENDIX A 
PROGRAM LISTINGS 

A listing of each program described in Cnapter III is 
given in this section. 



NETIN 


1 ! 


2 

3 

5 

6! 


10 

15! 


20 

30 

35! 


40 

50 

60 

65 

70 

80 

93 

100 

110 

120 

125! 


130 

140 

150 

160 

180! 


200 

210 

215! 


220 

230 


! NETIN TAKES NET, PAD, WIDTH INFORMATION FROM KB 

! AND LOADS IT IN DATA BASES X.NCL (NETS), 

! X.PAD (PADS), AND X.WID (WIDTHS) WHERE X IS THE 

! NAME ASSIGNED TO THIS NETWORK 

I 

ON ERROR GO TO 630 

EXTEND 

DIM 1% (100%) 

! FETCH NAME FOR NETWORK 

I 

INPUT "NET NAME";A$ 

! SET UP FILE FOR NETS 

I 

OPEN A$+".NCL” FOR OUTPUT AS FILE 1% 

DIM If 1%, INP?, (53’J'Jl) 

! INPUT NETS AND LOAD THEM INTO FILE (MAT INP%) 

I 

I%=1%: 

INPPT%=11 
PRINT "NET";I% 

INPUT " If CELLS (0 TO STOP)";C% 

IF C%=3% THEN 200 
MAT I%=ZER(C%) 

MAT INPUT 1% 

FOR J%=1% TO C% 

INP% (INPPT%)=I% (J%) 

INPPT%=INPPT%+1% 

NEXT J% 

! PUT 0 AT END OF NET 

I 

INP% (INPPT%) =3% 

INPPT%=INPPT%+1% 

I%=I%+1% 

GO TO 50 

! PUT -1 AT END OF NET FILE 

I 

INP% (INPPT%)=-1% 

CLOSE 1% 

! SET UP WIDTH FILE 

I 

OPEN A$+".WID" FOR OUTPUT AS FILE 2% 

DIM #2%,WID% (233%) 
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NETIN 


240 

245! 


250 

260 

2651 


270 

280 

290 

300 

400! 


500 

510 

515 

516! 


520 

530 

540 

550 

560 


599! 


600 

700 


! INITIALLY SET UP FILE FOR ALL CELLS WIDTH 1 

I 

MAT WID%=CON 

! IF WIDTH 1 DESIRED, DON’T GET WIDTHS 

I 

INPUT "DEFAULT WIDTHS 
IF LEFT(B$,1%)="Y" THEN 500 

! GET CELL WIDTHS ( ANY UNSPECIFIED ARE WIDTH 1 UNLESS PAD ) 

I 

PRINT "CELL #, WIDTH (0,0 TO STOP)" 

INPUT A%,B% 

IF A%=0% THEN 500 
WID% (A%) =B%: 

GO TO 260 

! SET UP PAD FILE 

I 

OPEN A$+".PAD" FOR OUTPUT AS FILE 3% 

DIM #3%,PAD% (50%) 

MAT PAD%=ZER: 

K% = 1% 

! GET PAD jfS 

I 

PRINT "PAD (0 TO STOP)" 

INPUT A% 

IF A%=0% THEN 600 
PAD% (K%) =A% 

K%=K%+1%: 

WID% (A%) =0%: 

GO TO 530 

! ERROR HANDLER AND NORMAL EXIT 

I 

CLOSE 1,2,3 
END 
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PARTIT 


1 ! 


10! 


30! 


40! 


1000 

10030 

10033 

10043 


10050 


10060 


10365 


10070 

10075 

10076 

10077 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10183 
10181! 


10182 


! PARTIT 

I 

I 


BASIC TRANSLATION OF FORTRAN PARTITIONER 
SENT FROM NASA 


! VERSION 2 

I 

! MODIFICATION HISTORY 

I 

! 5-JAN-78 ADDED CONSTRUCTION OF X.TRK 

! TO ALLOW DELETION OP ABSORBED 

! NETS IN CELNET 

I 

EXTEND 

ON ERROR GO TO 20000 
! IMPLICIT INTEGER (A-Y) 

DIM TEMPS (ICi^o ) : 

DIM BANKS (ICOS) : 

DIM FINETS (33%) : 

DIM REGS (100%) 

DIM NC% (200%) : 

DIM PC% (203%) : 

DIM BC% (1030%) : 

DIM CELLS (203%) 

DIM NN% (203%) ; 

DIM PN% (200%) : 

DIM 3N% (1030%) 

DIM wni% (20 3%) : 

DIM CIDHI% (203%) : 

DIM CIDLO% (200%) 

DIM WMI% (230%) : 

DIM CIDMI% (230%) 

DIM T2% (200%) 

DIM ZQ2(20fl%) 

DIM ZQl (200%) 

OODBG%=l% 

FLG1%=0% 

C5%=0% 

ALL%=81% 

! WMAX IS MAX # CELLS IN A PARTITION 
INPUT "MAX PARTITION WIDTH" ;WMAX% 

! LARGER Z7 IS, LESS LIKELY CELLS TO BE COMBINED 

INPUT "CLUSTERING THRESHOLD" ; Z 7 

IX%=1% 


! GET NETWORK NAME 

I 

INPUT "NET NAME";NNME$ 
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PARTI T 
10183! 

! FETCH NET, WIDTH DATA 

I 

10184 OPEN NNME$+".NCL" FOR INPUT AS FILE 1% 

10185 DIM n%, 1NP% (53 G:j%) 

10186 OPEN NNMS$ + " .V?1D" FOR INPUT AS FILE 5% 

10187 DIM #5%,W1D% (200%) 

10188 INPUT "OUTPUT TO";E$ 

10189 OPEN B$ FOR OUTPUT AS FILE 2% 

10190 IF OOD3G%=0% THEN 10230 

10192 OPEN NNME$+".TRK" FOR OUTPUT AS FILE 7% 

10194 DIM #7%,TRA.CE% (5J0%, 2%) 

10196 TRACK%=1% 

10200 PRINT ()2%, "INPUT DATA" 

10210 PRINT #2%,"WMAX =";WMAX%: 

PRINT #2%,"Z7 =";Z7 
10230 NCt.(I%)=0% FOR I% = 1% ro 200%: 

ClDLO% (l%)=0t FOR TO 2J0%: 

CIDHI% (I%)=3% FOR I% = 1% TO 200%: 

PC%(I%)=0% FOR I%=1% TO 200%: 

WHI%(I%)=0% FOR I%=1% TO 200% 

10240 C1DMI% (I%)=3% FOR I%=1% TO 203%: 

WMi%(I%)=b% FOR !% = !% TO Zu^'e. 

10303 ! ZERO BC% ARRAY 

10310 BC%(QQ%)=0% FOR QQ%=1% TO J0JG% 

10350 R%=0% 

10360 PS%=1% 

10380 ! ZERO TEMP ARRAY 

10385 INPPT%=n% 

10393 TEMP% (QQ%) =0% FOR QQ%=1% TO 101% 

10430 ! READS NETS FROM UNIT 1, PLACES IN TEMP ARRY 

10440 I%=1% 

10445 INPPT%=INPPT%+1% 

10450 IF INP% (INPPT%)=3% THEN 1.3460 

10452 IF INP% (INPPT%) =-l% THEN 11010 

10453 IF I%>100% THEN PRINT ({2%, "ERROR - TOO MANY CELLS IN NET" 

GO TO 20300 

10454 TEMP% (I%)=INP% (INPPT%) 

10455 I%=I%+1% 

10456 GO TO 10445 

10460 IF OODBG%=0% THEN 10690 

10465 PRINT #2%," ": 

PRINT ^2%," ": 

PRINT #2%, "NET #";R%+1%; 

10470 J%=1% 

10480 PRINT #2%, TAB (15%) ; 

10490 FOR J3%=0% TO 8% 

10530 IF J%+J3%=I% THEN 10693 

10510 PRINT #2%,TEMP% (J%+J3%) ; 

10520 NEXT J3% 
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PARTIT 

10525 PRINT #2%," " 

10530 J%=J%+9%: 

GO TO 10489 

10680 ! ARRANGES ELEMENTS IN EACH NET IN ORDER 

10690 FOR J%=1% TO 199% 

10700 N%=J%+I% 

10705 IF TEMP%(J%)=0% THEN 10820 

10710 FOR I%=N% TO 103% 

10720 IF TEHP%(I%)=0% THEN 10780 

10730 IF TEMPI (J'l)<=TEMP% (1%) THEN 10770 

10749 STOR%=TEMP% (J%) 

10750 TEMPI (J%)=TEMP% (1%) 

10760 TEMPI (I%)=STOR% 

10770 NEXT 1% 

10780 NEXT J% 

10890 ! DELETES THE DOU3LE ELEMENT IN EACH NET LINE AND 

10810 ! STORES IN BANK ARRAY. 

13820 N%=9% 

19840 J ZERO BANK ARRAY 

10350 BANX% (QQ%) =0% FOR QQ%=1% TO 103% 

10899 ! ARRANGE BANK GAME AS TEMP, BUT DELETE REPEATED ELEMENTS 

10900 FOR I%=1% TO 101%' 

1C910 IF TEMPI (1%) =0% IfiEN 10970 

10920 IF TEMPI (I%)=TEMP% (I%+1%) THEN 10950 

10939 N%=N%+i% 

10940 BANK! (N%)=TEMP% (1%) 

10950 NEXT II 

10970 RI=R%+1% 

10980 ! FORM NC, PC, BC% ARRAYS 

10990 GO SUB 11280 

11090 GO TO 10390 

11010 CLOSE 1% 

11011 PRINT #21," 

PRINT #21," " 

11015 PRINT #2%, "CELLS TO BE" ; TAB ( 33% ); "COMBINED" ; TAB ( 50%) ; "NEW CELL" 
11017 PRINT #2%, "COMBINED" ;TAS (30%) ; "CELL WIDTH" 

11100 GO SUB 11559 

11110 GO SUB 12769 

11130 PRINT "GOOD RUN" 

11140 PRINT #2%, "GOOD RUN" 

11150 GO TO 20000 

11160! 

I********* SUBROUTINE POINTl ************* 

! PUTS NUMBER OF CELLS IN NC(R) - PUTS STARTING 

! LOCATON IN PC & STORES CELL # IN BC 

« 

11280 NC%(R%)=N% 

11299 PC%(R%)=PS% 

11320 BCI (P3%+ (I%-1%) ) =BANK% (1%) FOR I% = 1% TO NC%{R%) 

11340 PS%=PS%+ (NC% (R%) ) 
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11350 RETURN 
113601 

I ************ subroutine POINT2 ************ 

! MAKES ARRAYS CELL, NUMBER OF NETS (NN) , POINTER 
! FOR NETS (PN) & ARRAY CONTAINING NETS (BN) 

I 

11550 IN%=1% 

11570 ! ZERO NN, PN , BN ARRAYS 

11590 C£LL% (1%) ,NN% (1%) ,PN% (1%) ,BN% (I%)=0% FOR I%=1% TO 200% 

11600 3N%(I%)=3% FOR I%=201% TO 1000% 

11710 ! IF NC(IN) = 1 THEN NET IS GONE INTO PARTITION 

11720 IN%=IN%+1% WHILE NC%(IN%)=1% 

11760 IB%=1% 

11765 GWC30%=PC% (IN%) 

11770 1 IF PC%(IN)=0 THEN END OF FILE 

11780 IF GWC30%=3% THEN 12100 

11790 FOR IJ%=GWC33% TO GWC30%+NC% (IN% ) -1 % 

11820 BANK% (IB%) =3C% (IJ%) 

11830 IB%=IB%+1% 

11840 NEXT IJ% 

11850 BANK% (IB%) =0% 

11860 ! ***** MAKES CELL ARRY AND NUMBER OF NETS LOCATED IN(NN)** 

11870 FOR I%=1% TO 203% 

11875 GWC20%=BANK% (1%) 

11880 JJ%=1% 

11890 IF GWC20%=3% THEN IN%=IN%+1%: 

GO TO 11720 

11900 IF CELL% (JJ%) =0% THEN 11980 

11910 IF CELL% (JJ%) <>GWC23% THEN JJ%=JJ%+1%: 

GO TO 11900 

11920 NN% (JJ%) =NN% (JJ%) +1%: 

GO TO 12020 

11980 IF FLGl%Ol% THEN WHI% (JJ%) =GWC20%; 

WMI% (JJ%) =WID% (GWC20%) 

12000 CELL% (JJ%) =GWC20% 

12010 NN%(JJ%)=1% 

12020 NEXT 1% 

12030 PRINT #2%, "ERROR — 0 NOT FOUND IN LAST EL OF NET ARRAY" 

12050 GO TO 20030 

12070 ! ******MAKES ARRYS PN (POINTER FOR NETS) AND BANK FOR NETS. 

12100 FLG1%=1%: 

PN% (1%)=1%; 

PN% (I%)=PN% (I%-1%)+NN% (I%-1%) FOR I% = 2% UNTIL CELL%(I%)=0% 
12160 NET%=1% 

12170 NET%=NET%+1%: 

NET%=NET%+1% WHILE NC%(NET%)=1% 

12190 0023%=PC% (NET%) : 

IF OO20%=0% THEN 12433 
12220 FOR I%=OO20% TO OO20%+NC% (NET%) -1% 

12225 GWC21%=3C% (1%) : 
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12240 

12250 


12300 


12330 

12380 

12390 

12420 

12430 

12590! 


12760 

12770 

12775 

12780 

12790 

12795 

12800 

12810 

12820 

12830 

12860 

12870 

12900 

12910 

12930 

12935 

12940 


12950 


12960 

12990 

13000 


13040 

13050 

13070 


IF GWC21%=0% THEN 12430 
J%=1%: 

J%=J%+1% UNTIL (CELL% (J%)=GWC21% OR J%=200%) 

IF J%=200% THEN PRINT #2%,"ERROR--CELL"; 

BC%(I%);"NOT IN CELL ARRAY": 

GO TO 20330 

GWC29%=PN% (J%) +NN% (J%) -1%: 

K%=PN% (J%) : 

K%=K%+1% UNTIL (BN%(K%)=3% OR K%=GWC29%) 

IF BN%(K%)<>0% THEN PRINT #2%, "ERROR — NO SPACE IN BN ARRAY" 
GO TO 20000 

BN% (K%) =NET% 

NEXT 1% 

GO TO 12170 
RETURN 

I ************* * SUBROUTIN3 REORG ******************** 

I 

SAVC5%=C5% 

FOR II%=1% TO 200% 

GWC10%=NC% (11%) : 

GWC22%=PC% (11%) 

IF C5%>ALL% THEN 1230? 

IF GWC10%>3% THEN 13103 

IF GWC10%=2% THEN 12833 

IF GWC10%=1% THEN 13103 

IF GWC10%=0% AND SAVC5%=C5% THEN 13160 

IF GWC10%=0% THEN 12760 

FOR JJ1%=GNC22% TO GWC22%+GWClD%-2% 

C1%=BC% (JJ1%) 

FOR JJ2%=JJi%+l% TO GWC22%+GWC10%-1% 

C2%=BC% (JJ2%) : 

W1%,W2%,WB%=3% 

FLG9%=0% 

FOR I%=1% UNTIL FLG9%=2% 

GWC11%=WHI% (1%) 

IF GWC11%=C1% THEN Wl %=WMI% ( I % ) ; 

W3%=WB%+W1%: 

FLG9%=FLG9%+1% 

IF GWC11%=C2% THEN V?2%=WMI% (1%) : 

WB%=WB%+W2%: 

FLG9%=FLG9%+1% 

IF WB%>VJMAX% THEN 133 80 
NEXT 1% 

COMPL%=500%: 

PRINT #2i," "rPRINT #2%,Cl%;" & ";C2%;; 

GO SUB 14070 

IF COMPL%=530% THEN 13080 
GO SUB 15090 
GO TO 13103 
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13080 

13090 

13100 

13130 

13160 

13170 

13180 


13190 

13195 

13200 


13220 


13280 

13290 

13295 

13300 

13310 

13320 

13330 

13340 

13350 

13360 

13330 


13400 

13420 

13430 

13440 

13450 

13460 

13500 

13510 

13520 

13530 

13550 

13570 

13584 

13590 

13600 

13650 

13655 


NEXT JJ2% 

NEXT JJ1% 

NEXT 11% 

!*** DETERMINES THE FINAL CELLS IN CID, AND WRITES TO 10 13 
PRINT fr2%," " 

PRINT S2%, "CELL--COMPOSED OF CELLS" 

IF CIDHI% (1%) =0% THEN PRINT #2%/'NO CELLS COMBINED": 

GO TO 13930 
FOR KI%=1% TO 200% 

IF CIDHI% (KI%)='0% THEN 13650 
X1%=CIDHI% (KI%) : 

C2%=CIDLO% (KI%) : 

C1%=CIDMI% (KI%) 

MAT REG%=ZER: 

REG% (1%) =X1%: 

REG% (2%) =C1%: 

REG% (3%) =C2%: 

FLG5%=0% 

FLG5%=0% 

FOR IZ%=2% TO 100% 

GWC23%=REG% (IZ'o) : 

IF GWC23%<5O0% THEN 135S0 
IF G.:C23-c<5'J0% THEN 3 3500 
FLG5%=1% 

FOR i%=i% TO 2;;:- 

IF GWC23%=CIDH1% (I?.) THEN 13389 
NEXT 1% 

PRINT #2%, "ERROR 680" 

GO TO 20003 
X1%=CIDH1% (1%) : 

C2%=CIDLO% (1%) : 

C1%=CIDMI% (1%) 

REG% (IZ%) =C1% 

FOR IV%= IZ%+1% TO 103% 

IF REG%(IY%)=0% THEN REG% ( I Y% ) =C 2 % : 

GO TO 13290 

NEXT IY% 

PRINT #2%, "ERROR 640" 

GO TO 20003 

IF REG%(IZ%)=0% THEN 13550 
NEXT IZ% 

PRINT #2%, "ERROR 615" 

GO TO 20909 

IF FLG5%<>0% THEN 13253 
IF REG%(1%)=0% THEN 13603 

PRINT #2%, REG%(I%); FOR I%=1% UNTIL REG%(I%)=0% 
PRINT #2%," " 

NEXT KI% 

PRINT #2%," " 

PRINT ^}2%, "FINAL CIRCUIT NETS" 
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13656 PRINT #2%/'NET NO." 

13670 FOR I%=1% UNTIL NC%(I%)=C% 

13680 IK%=1% 

13690 IF NC%(I%)=1% THEN 13823 

13740 FOR J%=PC%(I%) TO PC % (I % ) +NC% ( I % ) -1 % 

13770 FINET% (IK%) =BC% (J%) 

13780 1K%=IK%+1% 

13790 NEXT J% 

13800 PRINT #2%," " 

13802 PRINT #2%,I%, 

13805 PRINT #2%, FINET%(G1%); FOR G1%=1% TO IK%-1% 

13815 PRINT #2%," " 

13820 NEXT 1% 

13830 PRINT #2%," " 

13832 PRINT #2%, "CELL WIDTHS" 

13850 FOR I% = 1% TO 200?. 

13860 IF WHI% (I%)+WMI% (I%)=G% THEN 13930 

13370 PRINT ^ 2 %, WH 1 ?. ( 1 1 ) ;V; i I ?, (I % ) 

1389D NEXT 1% 

13900 PKlNf #2%, "ERROR IN WRITE OF WIDTH ARRAY" 

13910 GO TO 20893 

13930 GO SUB 16000 

13931 OPEN NNME$+" . PRT" FOR OUTPUT AS FILE 4% 

13932 DIM #4%,CHI% (200%) ,CMI% (203%) ,CLO% (203%) 

13933 MAT CHI%=CIDHI%; 

MAT CMI%=CIDMI%: 

MAT CLO%=CIDLO% 

13934 CLOSE 4% 

13935 ! 

13940 ! 

13959 GO TO 20330 

13960 ! 

13970 j******************** *SU3R0UTI NE JONES* * ****************** 

14970 Zl,Z2,Z3,Z5,Z6=3 

14130 J1%=0% 

14140 J2%=0% 

14150 I%=1% 

14160 I% = I% + 1% UNTIL C1%=CELL% (1%) 

14180 NNC1%=NN% (1%) 

14185 GWC13%=PN% (1%) 

14190 J%=1% 

14200 J%=J%+1% UNTIL C2%=CELL% (J%) 

14205 GWC14%=PN% (J%) 

14220 NNC2%=NN% (J%) 

14230 FOR Il%=3% TO NNC1%-1% 

14235 GWC24%=BN% (GWC13%+I1%) 

14250 FOR I2%=0% TO NNC2%-1% 

14270 IF GWC24%=BN% (GVvC14%+l2%) THEN 14350 

14280 NEXT 12% 

14290 J1%=J1%+1% 
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14300 

14310 

14320 

14330 

14340 

14350 

14355 

14360 

14420 

14430 

14435 

14450 

14470 

14480 

14490 

14500 

14510 

14520 

14530 

14540 

14553 

14570 

14600 

14610 

14623 

14630 

14640 

14650 

14669 

14670 
14680 
14690 
14700 
14710 
14720 
14740 

14780 

14790 

14800 

14810 

14820 

14830 

14840 

14850 

14860 

14870 

14880 

14890 


Z1=Z1+1 

Tl% (Jl%) =GWC24% 

ZQl (Jl%)=3.5 

IF NC% (Tl% (Jl%) ) =2% THEN ZQ1(J1%)=1 
GO TO 14423 
GWC1%=NC% (GI7C24%) 

IF GWC1%=2% THEN Z3=Z3+1 
IF GWC1%=3% THEN Z5=Z5+1 
NEXT 11% 

FOR I2%=D% TO NNC2%-1% 

GWC25%=BN% (GWC14%+I2%) 

FOR I1%=0% TO NNC1%-11 

IF GVJC25%=3N% {Gv;C13% + Il%) THEN 14540 
NEXT 11% 

J2%=J2%+1% 

Z2=Z2+1 

T2%(J2%)=BN% (PN% (a%)+l2%) 

ZQ2(J2%)=9.5 

IF NC% (T2% (J2%) ) =2% THEN ZQ2(J2%)=1 
NEXT 12% 

IF Z3>=(Zl+Z7) OR Z3>=(Z2+Z7) THEN 14880 
Z6=Z3- (Z1+Z2-Z5) /2+.5-Z7 
IF Z6>=3 THEN 14030 
FOR N1%=1% TO Jl% 

FOR N2%=1% TO 02% 

IF ZQ2(N2%)=0 THEN 14850 
0025%=PC% (Tl% (Nl%) ) 

0012%=0025%+NC% (Tl% (Nl%) ) -1% 

FOR Ll%=0025% i: 0012% 

IF L1%=C1% THEN 14840 
0026%=PC% (T2% (N2%) ) 

0013%=0026%+NC-% (T2% (N2%) ) -1% 

FOR L2%=0026% TO 0013% 

IF L2%=C2% THEN 14830 
IF BC% (Ll%) <>3C% (L2%) THEN 14833 
IF ZQl (N1%)=ZQ2 (N2%) THEN Z6=Z6+ZQ1 (N1 %) 
ELSE Z6=Z6+.5 
IF Z6>=0 THEN 14880 
ZOl(Nl%)=ZQl(Nl%)-0.5 
ZQ2 (N2%)=ZQ2 (N2%) -3. 5 
IF ZQ1(N1%)=0 THEN 14860 
ELSE 14853 
GO TO 14853 
NEXT L2% 

NEXT Ll% 

NEXT N2% 

NEXT Nl% 

GO TO 14903 
C5%=C5%+1% 

COnPL%=CO.MPL%+C5% 



A-12 


PART IT 


14900 

14910! 


15090 

15100 

15105 

15110 


15120 

15130 

15200 

15220 

15290 

15295 

15309 

15330 

15340 

15370 


15400 

15420 


15430 

15470 

15480 

15485 

15490 

15500 

15510 


15540 

15550 

15580 

15610 

15650 

15660 

15670 


RETURN 

I ************ SUBROUTINE REDO **************** 

! IF COMP IS RETURNED OTHER THAN 
! 500, NC & BC ARRZ^yS ARE REDONE 

I 

FLGW%=0% 

FOR I%=1% TO 200% 

GWC26%=NHI% (1%) 

IF GWC26%=0% THEN 

PRINT #2%, "CELLS NOT FOUND IN REDO FOR WEIGHTS": 

GO TO 2C0O0 

IF GWC26%=C1% THEN Wll=IvMT% (I % ) : 

GO TO 1520.) 

IF GWC26%=C2% THEN W2%=WMI% (1%) 

ELSE 15220 
IF FLGW% THEN 15293 

ELSE FLGN% = FLGW?. + 1%: POINT% = I% 

NEXT 1% 

FOR I%=1% TO 200% 

GWC27%=WHI% (1%) : 

IF GWC27%=0% THEN 15420 
IF GWC27%=C1% OR GWC27%==C2? THEN 15370 
NEXT 1% 

PRINT ^ 2 %, "ERROR IN WIDTH \RRAY, CELL Cl OR C2 NOT FOUND" 

GO TO 20039 

W3%=W1%+W2%: 

WHI% U%)=COMPL%: 

WMI% (1%) =WB% 

! COMBINES THE THREE CELLS INTO ONE (COMPL , Cl , C 2 ) 

CIDHI% (IX%) =COMPL%: 

CIDMI% (IX%) =C1%: 

CIDLO% (IX%) =C2% 

PRINT #2%, TAB (30%) ;WB% ;TAB (50%) ;COMPL% 

IX%=IX%+1% 

FOR I%=1% TO 209% 

GWC28%=NC% (1%) 

IF GWC28%=1% THEN 15793 
IF GWC28%=0% THEN 15830 
INUM%=0%: 

0027%=PC% (1%) ; 

0014%=0027%+GWC28%-1% 

FOR J%=0027% TO 0014% 

IF BC%(J%)OCl% AND BC%(J%)OC2% THEN 15670 
IF INUM% THEN 15720 
ELSE INUM%=1NUM%+1% 

BC% (LL%) =3C% (LL%+1%) FOR LL%=J% TO 0014%-!% 

BC% (0014%) =COMPL% 

GO TO 15550 
NEXT J% 
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15680 GO TO 15790 

15690 ! THIS PART MOVES ALL BC% ARRY UP ONE POSITION IN THAT NET 

15700 ! AND ASSIGNS -1-TO LAST POSITION. 

15720 BC% (K%) =BC% (K% + 1%) FOR K%=J% TO 0014%-!% 

15730 3C% (0014%) =-l% 

15780 NC% (I%)=GWC28%-1% 

15785 IF NC%(I%)=1% THEN TRACE% (TRACK% , 1%) =C5%+500% ; 

TRACE% (TRACK%,2%)=I%; 

TRACK%=TRACK%+1% 

15787 IF NC%(I%)=1% THEN TRACE% (TRACK%, 1%) =0% 

15790 NEXT 1% 

15800 PRINT #2%, "ERROR IN REDO AFTER STATEMENT 235" 

15820 GO TO 20030 

15830 GO SUB 11553 

15840 ! ***** RETURNES TO REORG 

15850 RETURN 
16000! 

I************ SUBROUTIN'^ COLLAPSE ************** 

I 

16005 PRINT 02%, "COLLAPSE" 

16010 C6%=C5% 

16020 FOR II%=1% TO 203% 

16030 IF NC%(II%)=1% THEN 1613'3 

16040 IF NC%(II%)=0% AND C6%=C5% THEN 16140 

16053 IF NC%(II%)=0% THEN 16330 

16070 C1%=BC% (PC% (11%) ) : 

C2%=3C% (PC% (II%)+1%) 

16090 PRINT #2%," 

PRINT & ";C2%; 

16100 C5%=C5%+1%: 

COMPL%=C5%+530% 

16110 GO SUB 15090 

16130 NEXT 11% 

16140 RETURN 
20000 CLOSE 1,2, 3, 4 

20005 CLOSE 7 

20010 IF ERROO THEN PRINT "ERROR #";ERR;"AT LINE"; ERL 
20020 NO EXTEND 
32767 END 
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1 ! 

! CELNET SETS UP X.CLN DATA BASE WITH ENTRIES OF FORM 

! PPP.QQQ 

! WHERE PPP IS A CELL # AND QQQ IS A NET NUMBER 

! ALL CELLS (INCLUDING THOSE GENERATED BY PARTIT) 

! AND ALL NETS ARE TREATED 

I 

20 ! 

! VERSION 2 

I 

30! 

! MODIFICATION HISTORY 

I 

40! 

! 5-JAN-78 MODIFIED METHOD OF ADDING ENTRIES FOR 

! PARTIT-FORMED CELLS TO PREVENT IN3ER- 

! TING CELL-NETS THAT ARE COMPLETELY 

! ABSORBED. USES X.TRK TO FIND ABSORBED 

! NETS. 

1000 EXTEND 

2000 DIM Cl% (200%) ,C2% (233%) ,C3% (200%) 

2010 DIM C(5303%) 

2020 DIM NO%(230%) 

10000 ON ERROR GO TO 20303 
10034! 

! FETCH NET FILE AND PARTITION FILE 
1 

10005 INPUT "NET NAME";NNME$ 

10306 OPEN NNME$+".NCL" FOR INPUT AS FILE 2% 

10310 OPEN NNME$+".PRT" FOR INPUT AS FILE 1% 

10320 DIM #1%,CHI% (203%) ,CMI% (233%) ,CLO% (200%) 

10030 DIM #2%, INP%(5000%) 

10332 OPEN NNME$+".TRK" FOR INPUT AS FILE 7% 

10034 DIM #7%,T0% (533%,2%) 

10036 T0%=1% 

10040 MAT C1%=CHI%: 

MAT C2%=CMI%: 

MAT C3%=CLO%: 

CLOSE 1% 

10042 MAT N0%=ZER 

10045! 

! SET UP CELL-NET FILE 

I 

10350 OPEN NNHE$+".CLN" FOR OUTPUT AS FILE 3% 

10063 DIM #3%,CLNTS (5930%) 

10065! 

! ADD ALL ENTRIES FOR ORIGINAL (NOT PARTIT-FORMED) 

! CELLS 


10070 1%--^!%: 
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J%=1%: 

K%=1% 

10080 IF INP%(I%)=0% THEN J%=J%+1%: 

GO TO 10120 

10090 IF INP%(I%)=-1% THEN 10230 
10100 INP=INP% (1%) : 

J=J%: 

C (K%)=INP+J/1003 
10110 K%=K%+1% 

10120 I%=I%+1% 

10130 GO TO 10080 
101401 

! ADD ENTRIES FOR PARTIT-FORMED CELLS 

I 

10200 I%=1% 

10205 IF C1%(I%)=0% THEN 10300 
10210 C1%=C2%(I%): 

C2%=C3% ( 1 %) 

10212 IF Cl% (I%)=T3% (T0%,1%) THEN N0 % (T0 % (TO ^ , 2%) ) =1 % : 

T0?,=T0% + 1%: 

GO TO 10212 

10220 FOR J%=1% TO K%-1% 

10225 C0=C(J%) 

10230 IF INT(C0)OC1% THEN 10253 

10232 IF N0% (INT ( (C0-C1%) *1033+.5) ) THEN 10270 

10234 C(K%)=C1% (I%)+C0-C1%: 

K%=K%+1%: 

GO TO 10270 

10250 IF INT(C0)OC2% THEN 10273 

10252 IF N0% (INT ( (C0-C2%) *1333+. 5) ) THEN 10270 

10254 C (K%)=C1% (I%)+C0-C2%; 

K%=K%+1% 

10270 NEXT J% 

10280 I%=I%+1%; 

GO TO 10205 

10290! 

1 SORT CELL-NETS FOR EASIER ACCESS 

10300 C(K%)=3 

10305 D%=K%-1% 

10310 FLG%=0%: 

I%=1% 

10315 IF C(I%+D%)=0 THEN 10333 
10320 IF C (1%) >C (I%+D%) THEN T=C(I%): 

C (I%)=C (I%+D%) : 
C{I%+D%)=T: 

FLG%=1% 

10325 I%=I%+1%: 

GO TO 10315 
10330 D%=D%/2%: 
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IF D% THEN 10310 
10340 IF FLG% THEN D%=1%: 

GO TO 10310 

10400 I%=1% 

10405! 

! ELIMINATE DUPLICATES IN CELL-NET LIST 

I 

• 

10410 IF C(I%)=0 THEN 10500 

10420 IF C (1%) ==C (I%+1%) THEN 10422 

ELSE I%=I%+1%: GO TO 10410 

10422 C (J%)=C (J% + 1%) FOR J% = I% + 1% UNTIL C{J%)=0 

10425 GO TO 10420 

10500 K%=I% 

10501 MAT PRINT C (K%) 

10600 CLNTS (1%) =C (1%) FOR I%=1% TO K% 

19999! 

! ERROR HANDLER AND NORMAL PROGRAM EXIT 
! 

20000 CLOSE 1,2,3 
20010 END 
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1 ! 

! LINEUP USES "FLIP-FLOP" ALGORITHM TO FORM 

! LINEAR ORDERING OF CELLS FROM 

! PARTITIONS 


201 


VERSION 2 


30 ! 

! MODIFICATION HISTORY 

I 

40 ! 

! 5-JAN-78 MODIFIED INITIALIZATION SEGMENT 

! TO ALLOW USE OF VERSION 2 OF CELNET 

I 

999 EXTEND 

1000 ON ERROR GO TO 20003 

2000 DIM CLNTS (3030?,) ,L% (500?.) ,C1% (203%) , 

Cr.'. (200%) ,C3% (200?) ,UPN£T% (2 00?) , 

DWNNET? (233%) ,A% (230%) ,B% (200%) 

9999! 

! GET NETWORK NAME 

I 

10003 INPUT "NET NAME";NNME$ 

10001 ! 

! FETCH CELL-NETS FOR THIS NETWORK 

I 

10005 OPEN NNME$+".CLN" FOR INPUT AS FILE 1% 

10010 DIM n%, Cl (5330%) 

10020 CLNTS (1%) =C1 (1%) FOR I%=1% UNTIL C1(I?-1%)=0 
10030 CLOSE 1 
10050 LASTCELL%=1%: 

LASTCELL%=LASTCELL%+1% WHILE CLNTS (LASTCELL? ) <>0 
10055 LASTCELL%=LASTCELL%-1% 

10059! 

! FETCH PARTITIONS 

I 

10060 OPEN NNME$+".PRT" FOR INPUT AS FILE 2% 

10070 DIM #2%,CHI% (203%) ,CMI% (200%) ,CLO% (200%) 

10080 MAT C1%=CHI%: 

MAT C2%=CMI%: 

MAT C3%=CLO% 

10090 CLOSE 2 
10092! 

! FIND HIGHEST NUMBERED CELL 

I 

10094 I%=1%: 

I%=I%+1% WHILE C1%(I%)<>0% 

10096 C%=C1% (I%-1%) 

10100 ! 
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10110 

10112 

10115! 


10120 

10200 ! 


10210 ! 


10220 

10230 

10240 

10253 

10252! 


10253 

10254 
10255! 


10260 

10270! 


10280 

10300! 


10305 

10310 

10320 

10325 

10330 

10340 


! GET C1,C2 FOR HIGHEST # ’D CELL 

I 

GO SUB 1600'0 
MAT L%=3ER 


!PUT C1,C2 IN L 

I 

L% (1%)=C1%: 

L% (2%) =C2% 


I********** main loop ************** 

I 

i 


! FIND HIGHEST #'D CELL IN L 

I 

C%=0%: 


J% = 3% 

FOR I%=1% UNTIL L%(I%)=0% 

IF L%(I%)>C% THEN J%=I%: 
C%=L% (1%) 


NEXT 1% 


! IF ALL CELLS EXPANDED, QUIT 
( 

IF C%<500% THEN 11000 
REP%=J% 


! FIND C1,C2 FOR THIS C 

I 

GO SUB 16000 

! FORM UPNETS,DWNNETS 
1 

GO SUB 17000 

! FORM LIST OF NETS THAT Cl IS IN (A ARRAY) 

! AND LIST OF NETS THAT C2 IS IN (B ARRAY) 

I 

LA%=0%: 

LB%=0% 

I3%=1%; 

I3%=13%+1% UNTIL INT(CLNTS(I3%) )=C1% 

LA%=LA%+1%; 

A%(LA%)=INT( (CLNTS(I3%)-INT(CLNTS(I3%) ) ) *1000+. 5) 
I3%=13%+1%: 

IF INT (CLNTS (13%) ) =C1% THEN 10320 
J3%=1%: 

J3%=J3%+1% UNTIL INT(CLNTS(J3%) )=C2% 

LB%=LB%+1%: 
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10350 

104001 


10410 
10420 
10430 
10435 
10450 
10460 
10470 
10490 
10500 
10510 
10520 
10530 
10 54 0 
10560 
10570 
10580 
10300 
10610 
10620 
107001 


10710 


10720! 


10730 

10735 

10736 
10740 
10750 

10760 


10770 

10800 

10999! 


11000 

11005 


B% (LB%)=INT ( (CENTS (J3%) -INT (CENTS (J3%) ) ) *1030+. 5) 

J3%=J3%+1%: 

IF INT(CLNTS (J3%) ) =C2% THEN 10340 
! COMPUTE J1,J2 

I 

J1%,J2%=0% 

FOR IA1%=1% TO LA% 

A%=A% (IA1%) 

FOR IA2^=1% UNTIL (UPNET% (IA2%) >A% OR UPNET% (I A2 % ) =0 %) 

IF UPNET% (IA2%)=A% THEN J1%=J1%+1% 

NEXT IA2% 

FOR IA3% = 1% UNTIL (DWNNETl (IA3%) >A% OR DWNNET% ( I A3 % ) =0 % ) 
IF DWNNET% (IA3%) =A% THEN J1%=J1%-1% 

NEXT IA3% 

NEXT IA1% 

FOP JA1% = 1% TO LB I 
B%=Dl (JM"o) 

FOR JA2« = lt, UNTIL (UPNE 1’?, { J A 2 1 ) >3 ?. OR UPNET% ( JA2 % ) =0 % ) 

IF UPNET% (JA2%) =B% THEN J2%=J2% + 1% 

NEXT JA2% 

FOR JA3%=1% UNTIL {DWNNET% (JA3?-.) >B% OR DV3NNET% (JA3%) =3%) 
IF OWNNEI'S (J\3'i) =D^o THEN J2?,=J2%-1% 

NEXT JA3% 

NEXT JA1% 

! USE J1,J2 TO GET C1,C2 ORDERING 

I 

IF J1%<J2% THEN T%=C2%: 

C2%=C1%: 

C1%=T% 


! REPLACE EXPANDED CELL V7ITH C1,C2 

I 

L% (REP%)=C1% 

T1%=L% (REP% + 1%) 

L% (REP% + 1%) =C2% 

FOR IBl%=REP%+2% TO 200% 

IF L%(IB1%)=0% THEN L% (IBl % ) =Tl % : 

GO TO 10800 

T2%=L% (IB1%) ; 

L% (IB1%)=T1%: 

T1%=T2% 

NEXT IB1% 

GO TO 10200 

! OUTPUT RESULTS AND SET UP X.LIN WITH LINEAR LIST 

I 

PRINT L%(I%) FOR !%=!% UNTIL L%(I%)=C% 

OPEN NNME$+".LIN" FOR OUTPUT AS FILE 3% 
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11006 

11007 

11010 

15999! 


16000! 


16010 


16020 

17000! 


17005 

17007 

17008 
17010 
17020 
17030 
17040 
17050 
17055 
17060 

17070 

17100 

17110 

17120 

17130 

17140 

17150 

17155 

17160 

17170 

17180! 


17190 

17200 

17210 

17220 

17230 


DIM #3%,LIN% (200%) 

LIN% (I%)=L% (1%) FOR I% = 1% TO 200% 

GO TO 20000 

! FIND CELLS TO EXPAND C INTO 

t 

! GET Cl & C2 FOR CELL #C 

I 

II%=1%: 

II%=II%+1% UNTIL C1%(II%)=C%: 

C1%=C2% (11%) : 

C2%=C3%(II%) 

RETURN 

! FORM UPNETS, DWNNETS FOR CELL AT POS. J 

I 

MAT UPNET%=ZER: 

MAT DWNNET%=ZER 
LUN%=0%: 

LDN%=0% 

IF J% = 1% THEN 1710sl 
FOR I1% = 1% TO 

CELL%=L% (11%) 

J1%=LA3TCELL% 

J1%=J1%-1% UNTIL INT(CLNTS (Jll) ) =CELL% 
A7%=INT((CLNTS(J1%)-INT(CLNTS(J1%) ) )*1000+.5) 
UPNET% (A7%) =A7% 

J1%=J1%-1%; 

IF INT (CENTS (J 1%) )=CELL% THEN 17050 

NEXT 11% 

IF L%(J%+1%)=0% THEN 17180 
FOR I2%=J%+1% UNTIL L%(12%)=0% 

CELL%=L% (12%) 

J2%=LASTCELL% 

J2%=J2%-1% UNTIL INT(CLNTS(J2 ) ) =CELL% 

B7% = INT( (CENTS (J2%) -INT (CENTS (J2%) ) ) *1000+. 5) 
DWNNET% (B7%) =B7% 

J2%=J2%-1%: 

IF INT (CENTS (J2%) ) =CELL% THEN 17150 

NEXT 12% 

! ELIMINATE GAPS 

I 

FOR I4%=1% TO 200% 

IF UPNET% (14%) 09% THEN 17250 
FOR J4%=I4%+1% TO 200% 

IF UPNET% (J4%) =0% THEN 17240 
UPNET% (I4%)=UPNET% (J4%) : 

UPNET% (J4%) =9%: 
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17240 

17245 

17250 

17252 

17255 

17300 

17310 

17320 

17330 

17340 


17350 

17355 

17360 

17362 

17365 

17450 

19999! 


20000 

20010 

20020 


GO TO 17250 

NEXT J4% 

GO TO 17255 

NEXT 14% 

PRINT "ERROR-'NO SPACE IN UPNET" : 

STOP 

LUN%=I4% 

FOR I6%=1% TO 200% 

IF DWNNET% (16%) <>0% THEN 17360 
FOR J6%=16%+1% TO 200% 

IF DWNNET%(J6%)«=0% THEN 17350 
DWNNET% (16%) =DWNNET% ( J 6 % ) : 
DWNNET% (J6%)=0%: 

GO TO 17360 

NEXT J6% 

GO TO 17365 

NEXT 16% 

PRINT "ERROR--NO SPACE IN DWNNET" : 

STOP 

LDN%=I6% 

RETURN 

! ERROR HANDLER AND NORMAL PROGRAM EXIT . 

! 

CLOSE 1,2, 3, 4 
PRINT TIME$(0) 

END 
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1 ! 

! CROSS FORMS X.CRS DATA BASE WHICH CONTAINS THE 

! NUMBER OF NETS CROSSING EACH CELL BOUNDARY 

! IN THE LINEAR CELL ORDERING. THIS DATA 

! IS USED IN THE ROTATE PORTION OF FOLD 

I 

1000 EXTEND 

1010 ON ERROR GO TO 20000 

10000 DIM L% (200%) : 

DIM T% (50%) : 

DIM CROSS(200%) 

10005! 

! GET NAME FOR THIS NETWORK 

I 

10010 INPUT "NET NAME";NNME$ 

10015! 

! FETCH NET LISTS 

I 

10020 OPEN NNME$+".NCL" FOR INPUT AS FILE 1% 

10030 DIM #1%, INP% (5009%) 

10035! 

! FETCH LINEAR ORDERING 

I 

10040 OPEN NNME$+".LIN" FOR INPUT AS FILE 2% 

10050 DIM #2%,L1% (203%) 

10060 MAT L%=L1%: 

CLOSE 2 

10065! 

! FETCH PAD LIST 

I 

10070 OPEN NNHE$+".PAD" FOR INPUT AS FILE 3% 

10080 DIM #3%,P1%(50%) 

10090 MAT T%=P1%: 

CLOSE 3 

10100 ! 

! ELIMINATE PADS FROM LINEAR LIST 

I 

10110 FOR I%=1% UNTIL T%(I%)=0% 

10120 J%=1%: 

J%=J% + 1% UNTIL L% (J%) =T% (1%) 

10130 FOR K%=J% UNTIL L%(K%)=0% 

10140 L% (K%)=L% (K% + 1%) 

10150 NEXT K% 

10160 NEXT 1% 

10170! 

! CLEAR CROSSING ARRAY 

I 

10180 MAT CROSS= ZER 
10200 ! 

! FIND # CROSSINGS AT EACH CELL BOUNDARY 





CROSS 


10210 

102201 


10230 

10232 

10235! 


10240 

10250! 


10260 

10270! 


10271 

10272 

10274 

10280 

10285 

10287 

10300! 


10305 

10310 

10312! 


10315 

10320 

10330 

10340! 


I 



! CLEAR T ARRAY TO HOLD CURRENT NET 

I 

MAT T%=ZER 
K% = 1% 


! CHECK FOR END OF NETS 

1 

IF INP%(I%)=-1% THEN 10500 
! CHECK FOR END OF THIS NET 

I 

IF INP%(I%)=0% THEN 10333 
1 ADD CELL TO T 

I 

T^ = 1NP?, (1%) 

J1%=1%: 

J1%=J1%+1% UNTIL (L%(J1%)=T% OR L%(J1%)=0%) 
IF L%(J1%)=3% THEN 10235 
r?- (K?,) =T?. : 

K%=K%+1% 

I%=I%+1% 

GO TO 10240 


! UPDATE CROSS ARRAY FOR THIS NET 

I 


IF K%<=2% THEN I%=I%+1%: 

GO TO 1G220 


J% = 1% 


! LOOK FOR CELL AT L%(J%) IN THIS NET 

I 

J1%=1% 

J1%=J1% + 1% UNTIL (T% (J1%)=L% (J%) OR T%(J1%)=0%) 

IF T%(J1%)=3% THEN J%=J%+1%: 

GO TO 10315 

! CELL AT L%(J%) IS FIRST OCCURRENCE OF CELLS 

! IN THIS NET ADD 1 TO EACH CROSSING UNTIL ALL 

! CELLS IN THIS NET HAVE BEEN FOUND 


10350 K%=K%-1% 

10360 K%=K%-1%: 

IF K%=0% THEN I%=I%+1%: 

GO TO 10223 

10370 CROSS (J%)=CROSS (J%) +1 
10375 J%=J%+1% 
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10380 

10390 

105001 


10505 

10510 

10520 

10530 

10540 

10550 

10560 

10565 

10570 


10580 

10693 

10640! 


10650 

10655 

10650 

10670 


10680 

10690 

10800 

19999! 


20000 

20010 


J1%=1%: 

J1%=J1%+1% UNTIL (T% (J1%)=L% (J%) OR T% (J1%)=0%) 
IF T%(J1%)=0?. THEN 10370 
ELSE 10360 

! SORT CROSSINGS IN DESCENDING ORDER 

I 

I% = 1% 

I%=I%+1% UNTIL L%(I%)=0%; 

LAST%-I%-2% 

FOR !%=!% TO LAST% 

1 = 1 %: 

CROSS (I%)=CROSS(I%)+I/1O0 

NEXT 1% 

FLAG%=0% 

FOR I%=1% TO LAST%-1% 

IF CROSS (1%) <CROSS (I%+1%) THEN 10580 
T=CR03S (1%) : 

CROSS a%) =CROSS (I% + 1%) : 

CROSS (I%+1%)=T: 

FLAG%=1% 

NEXT 1% 

IF FLAG% THEN 1C553 
! COPY CROSSINGS TO OUTPUT FILE 

I 

OPEN NNME$+".CRS" FOR OUTPUT AS FILE 4% 

DIM #4%,CROSS% (200%) 

FOR I%=1% TO LAST% 

C=CR03S (1%) : 

C=C-INT(C+,O01) : 

CROSS% (I%)=INT(C*103+.5) 

NEXT 1% 

CROSS% (LAST%+1%)=0% 

MAT PRINT CROSS% (LAST%) 

! ERROR HANDLER AND NORMAL PROGRAM EXIT 

I 

CLOSE 1,2, 3, 4 
END 
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1! 

! FOLD — LAYS 
1 

LINEAR CELL ORDERING OUT ON CHIP 

20! 

! VERSION 2 A 

1 


30! 

! MODIFICATION 

1 

HISTORY 

40! 

! 22-DEC-77 
1 
1 
1 
1 

CHANGED ALG. FOR PLACEMENT OF CELL 
ON ROW I OR I+l TO MAINTAIN C-SHAPES — USE 
OF VARIABLE Z CHANGED TO LAST ROW 
(OF 1,1+1) PLACED ON 

41! 

! 30-DEC-77 

MODIFIED OUTPUT FORMAT 

42! 

! ll-JAN-78 
1 

1 

« 

1 

* 

AUTOMATED SELECTION AND MODIFICATION 
OF LOOKBACK DISTANCE-- ENABLED CONSTRUCTION 
OF XXX. FLD TO CONTAIN PLACEMENT 


1010 

DIM C% (100%, 100%) 

!CHIP 

1020 

DIM L% (200%) 

(LINEAR PLACEMENT 

1030 

DIM W% (200%) 

(WIDTHS 

1040 

DIM P% (30%) 

(PADS 

1050 

DIM S% (109%) 

(SPACE LEFT ON ROWS 

1060 

DIM LO%(203%) 


1070! 

! GET CHIP DIMENSIONS 

(N=jf CELL ROWS, 


! M=# TRANSISTORS IN 

1 

EACH ROW) 

1080 

INPUT "CHIP DIMS(R,0" 

;N%,M% 


1090! 

! SET UP CHIP (C) 

I 

1100 MAT C%=ZER(N%,M%) 

1110 ! 

! SET UP ARRAY S TO INDICATE SPACE REMAINING ON EACH ROW 

I 

1120 HAT S%=ZER(N%) 

1130! 

! GET NAME FOR THIS NETOORK 

I 

1140 INPUT "NET NAME";E$ 

1145 INPUT "OUTPUT T0";0$ 

1150! 

! FETCH LINEAR ORDERING (IN ARRAY L%) 

I 
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1160 OPEN E$+".L1N" FOR INPUT AS FILE 1% 

1170 DIM #1%,L1% (200%) 

1180 MAT L%=L1%: 

CLOSE 1 

1190! 

! FETCH CELL WIDTHS (IN ARRAY W%) 

I 

1200 OPEN E$+".WID" FOR INPUT AS FILE 1% 

1210 DIM #1%,W1% (200%) 

1220 MAT W%=W1%: 

CLOSE 1 

1230! 

! FETCH PAD NUMBERS (IN ARRAY P%) 

I 

1240 OPEN E$+".PAD" FOR INPUT AS FILE 1% 

1250 DIM n%,Pi%(50%) 

1260 P% (I%)=P1% (1%) FOR I%=1% TO 30% 

1270 CLOSE 1 

1280! 

! FETCEI CELL BOUNDARY CROSSING DATA (IN ARRAY C5%) 

I 

1290 OPEN E$+".CRS" FOR INPUT AS FILE 2% 

1300 DIM {r2%, C5%(203%) 

1310! 

! C5% IS POINTER INTO ARRAY C5% 

I 

1320 C5%=1% 

1330 C%=1%; 

C%=C%+1% UNTIL L%(C%)=0% 

1340! 

! Cl% IS NUMBER OF CELLS AND PADS 
! C% IS NUMBER OF CELLS NOT PADS 
! D% IS NUMBER OF PADS 


1350 

o 

(i 

0 

1 

1360 

C1%=C% 

1370 

IF P% (1%) =0% THEN 1550 

1380 

D%=1%; 

D%=D%+1% UNTIL P%(D%)=0% 

1390 

D%=D%-1% 

1400 

1410! 

C%=C%-D% 


! K6% IS NUMBER OF ROWS PRECEDING CURRENT ROW 
! THAT WILL BE SCANNED FOR PLACING THE 
! NEXT CELL 

I 

1420 K6%=0% 

1422 PRINT "INITIAL LOOKBACK DISTANCE IS";K6% 

1430! 

! ELIMINATE PADS FROM L% ARRAY 
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1440 FOR I%=1% TO D% 

1450 FOR J%=1% TO 200% 

1460 IF L% (J?.) <>P% (1%) THEN 1510 

1470 FOR K%=J% TO Cl%+1% 

1480 L% (K%)=L% (K%+1%) 

1490 NEXT K% 

1500 GO TO 1520 

1510 NEXT J% 

1520 NEXT 1% 

1530! 

! ARRAY L0% IS ORIGINAL (UNROTATED) L% ARRAY 

I 

1540 MAT L0%=L% 

1545! 

! LOAD S ARRAY S(I%) POINTS 

! TO NEXT AVAILABLE LOCATION ON ROW I%— IF 
! S(I%)<3 THEN ROW 13 RIGHT-I 0-LEFT . 

! OTHERWISE, ROW IS LEFT-'i’O-RIGHT 

I 

1550 Z%=1% 

1560 FOR I%=1% TO N% 

1570 IF Z%=1% OR Z%=2% THEN 3%(I%)=l%:GO TO 1590 

1580 S%(I%)=-M% 

1590 Z%=Z%+1% 

1600 IF Z%<5% THEN 1623 

1610 Z%=1% 

1620 NEXT 1% 

1630! 

! BEGIN PLACING CELLS 

I 

1635! 

! 1% IS NUMBER OF ROW CURRENTLY USED AS BASE ROW 

I 

1640 I%=1% !BASE ROW # 

1645! 

! J% IS POINTER INTO LINEAR ORDERING 

I 

1650 J%=1% !POS IN L% 

1655! 

! Z% IS USED TO KEEP RECORD OF LAST ROW THAT A CELL WAS PLACED 
! ON ( I OR I+l) 

I 

1660 Z%=I% 

1670 F1%=0% 

1675! 

! SCAN ROWS I%-K6% TO I%-1 TO SEE IF CURRENT CELL (L%(J%)) 

! CAN BE PLACED ON ONE OF THEM 

I 

1683 IF I%-K6%<1% THEN E1%=1% 
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ELSE E1%=I%-K6% 

1690 IF I%-1%<1% THEN 1750 

ELSE E2%=I%-1% 

1700 FOR M5%=E1% to E2% 

1710 X%=M5% 

1715! 

1 TRY TO PLACE CELL L%(J%) ON ROW X% 

I 

1720 GO SUB 1890 

1725! 

! IF F%=1% THE CELL WAS PLACED ON ROW X% 

I 

1730 IF F% THEN 1820 

1740 NEXT M5% 

1745! 

! CELL WASN'T PLACED BY LOOKBACK ROUTINE — TRY TO PLACE 
! IT ON ROW I OR ROW I+l 

I 

1746! 

! EQUAL SPACE ON ROWS I AND I+l ? 

I 

1750 IF S% (I%)OS% (I% + 1%) THEN 1775 

1752! 

! EQUAL SPACE REMAINS ON BOTH ROWS-- TRY TO PLACE CELL 
! ON SAME ROW OF (1,1+1) AS THE LAST CELL (ROW Z) 

I 

1755 X%=Z%: 

GO SUB 1890 

1756! 

! IF CELL WAS PLACED, GET NEXT CELL — 

! OTHERWISE, TRY NEXT ROW 

I 

1757 IF F% THEN 1830 

ELSE 1790 

1770! 

! SPACE REMAINING ON ROWS I AND I+l IS NOT EQUAL — 

! TRY TO PLACE CELL ON THE ONE OF THESE ROWS THAT HAS THE 
! MOST SPACE REMAINING 

I 

1775 IF S% (1%) >S% (I% + 1%) THEN X% = I% + 1% 

ELSE X%=I% 

1777 GO SUB 1890 

1778! 

! IF CELL WAS PLACED, GET NEXT CELL 

I 

1780 IF F% THEN Z%=X%: 

GO TO 1830 

1785! 

! COULDNT PLACE CELL WITH THIS 1% 

I 
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1789! 

! IF AT BOTTOM OF CHIP, CAN'T PLACE CELL AT ALL, GO TO ROTATE 
i ROUTINE 

I 

1790 IF I%=N% THEN 1860 

17951 

1 BUMP 1% TO POINT TO NEXT ROW TO TRY 

I 

1800 IF I%=N%-1% THEN I%=I%+1% 

ELSE I%=I%+2% 

1810 GO TO 1660 

1820! 

1825! 

! POINT J% TO NEXT CELL IN L% 

I 

1830 j%=J%+l% 

1835! 

! IF ALL CELLS PLACED, QUIT 

I 

1840 IF J%=C%+1% THEN PRINT "ALL PLACED ROTATION ";C5%-1%: 

GOTO 2220 

1850 GO TO 1670 IPLACE NEXT CELL 

1860 ! 

1870 GO TO 2070 

1890! 

! THIS SUBROUTINE ATTEMPTS TO PLACE CELL L%(J%) ON 
! ROW X% — RETURNS F%=1% IF PLACED, F%=0% OTHERWISE 

I 

1895! 

! IF NO SPACE ON THIS ROW, NO USE IN IRYING 

I 

1900 IF S%(X%)=0% THEN F%=0%;GO TO 2060 

1910 Q%=L%(J%) ICELL # 

1915! 

! CHECK FOR L-TO-R OR R-TO-L ROW 

I 

1920 IF S%(X%)<0% THEN 1990 

1930 !L TO R ROW 

1935! 

! ROW X% IS L-TO-R, CHECK REMAINING SPACE 
! TO SEE IF IT IS >= CELL WIDTH 
! IF NOT, RESET F% AND RETURN 

I 

1940 IF S% (X%)+W% (Q%) -1%>M% THEN F%=0%: GO TO 2060 
1945! 

! ROOM ENOUGH FOR CELL PLACE IT IN FIRST AVAILABLE SPACE 

I 

1950 F0RK%=3%(X%) TO S% (X%) +W% (Q%) -1% IPLACE CELL 

1960 C%(X%,K%)=Q% 

1970 NEXT K% 
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1980 

1990! 


2000 

2005! 


2010 

2020 

2030 

2035! 


2040 

2050 

2060 

2070! 


2080 

2081 


2082 

2083 

2085! 


2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 


GO TO 2040 

!ROW X% IS R-TO-L, CHECK REMAINING SPACE TO 
! SEE IF IT IS >= CELL VJIDTH. IF NOT, 

! RESET F% AND RETURN 

I 

IF -S% (X%) -W% (Q%)+1%<1% THEN F% = 0%: 

GO TO 2060 

! ROOM ENOUGH FOR CELL PLACE IT IN FIRST AVAILABLE SPACE 

I 

FOR K%=-S%(X%) TO -S% (X%) -W? (Q%) +1% STEP -1% 

C%(X%,K%)=Q% 

NEXT K% 

! UPDATE S ARRAY TO REFLECT NEW PLACED CELL 
! SET F% FLAG 

I 

S% (X%)=S% (X%)+W% (Q%) 

F% = 1% 

RETURN 

! ROTATE ROUTINE USED '-'JnEN THE LINE’S ORDER 

! COULDNT BE PLACED ON THE CHIP SPLITS ORDER AT PLACE 

! WITH FEWEST j} BOUNDARY CROSSINGS-- EACH SUCEEDING SPLI. 
! AT PLACES WITH MORE AND MORE CROSSINGS 

I 

IF C5%(C5%)<>0% THEN 2090 
K6%=K6%+1%: 

C5%=1%: 

IF K6%>N% THEN PRINT 

"CANT PLACE — PARTIAL PLACEMENT FOLLOWS" :GO TO 2230 
PRINT "LOOKBACK DISTANCE INCREASED TO";K6% 

GO TO 2200 

! GET NEXT SPLIT BOUNDARY OUT OF CROSSING LIST, 

! CLEAR L% AND REBUILD L% FROM L0% SPLIT AT C6% 

I 

C6%=C5% (C5%) : 

K% = 1% 

MAT L%=ZER 

FOR I%=C6%+1% UNTIL L0%{!%)=0% 

L% (K%)=L0%(I%) ; 

K%=K%+1% 

NEXT 1% 

FOR I%=1% TO C6% 

L% (K%)=L0% (1%) ; 

K%=K%+1% 

NEXT 1% 

C5%=C5%+1% 
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21751 

! DUMP ROTATED ORDER 

I 

2180! 

2195! 

! CLEAR CHIP & SPACE ARRAY START OVER 

I 

2200 MAT C%=ZER: 

MAT S%=ZER 
2210 GO TO 1550 

2220 ! 

! OUTPUT ROUTINE 

2230! 

2240 OPEN 0$ FOR OUTPUT AS FILE 3% 

2241! 

! SAVE CHIP IMAGE 

I 

2242 OPEN E$+".FLD" FOR OUTPUT AS FILE 7% 

2244 DIM #7%,C8% (2%) ,C7% (100%,100%) 

2245 C8%(1%)=N%: 

C8% (2%)=M% 

2248 C7% (1%, J%) =C% (1% , J%) FOR I%=1% TO N% FOR J%=1% TO M% 

2249 CLOSE 7 

2250 PRINT 

2255 PRINT #3%, "LINEAR ORDER USED" 

2257 PRINT #3%, L%(K%) FOR K%=1% UNTIL L%(K%)=0% 

2259 PRINT #3%," " FOR K%=1% TO 5% 

2260 IF M%<10% THEN K%=1%: 

GO TO 2360 

2270 K%=1% 

2280 FOR I%=1% TO N% 

2290 PRINT #3%, TAB( (J%-K%)*5%) ;C% (I%,J^) ; FOR J%=K% TO K%+9% 

2300 PRINT #3%," " 

2310 PRINT #3%," " 

2320 NEXT 1% 

2330 PRINT #3%," " FOR J%=1% TO 10% 

2340 K%=K%+10% 

2350 IF K%+9%<M% THEN 2280 

2360 FOR I%=1% TO N% 

2370 PRINT #3%, TAB ( (J%-K%) *5%) ;C% (1% , J%) ; FOR J%=K% TO M% 

2380 PRINT #3%," " 

2390 PRINT #3%," " 

2400 NEXT 1% 

2405! 

! ERROR HANDLER AND NORMAL PROGRAM EXIT 

I 

2410 CLOSE 3% 

2420 END 

! END OF PROGRAM 
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!!• 


1000 

10000 

100011 


10010 

10020 

10021 ! 


10030 

10040 

100411 


10050 

10060 

10070 

10080 

10090 

10100 


10110 

10120 

10130 

101311 


10140 

10145 

10150 

10160 

10170 

10180 

10190 

10191! 


! RATER — RATES PLACEMENTS 

I 

DIM M% (203%, 3%) ,T% (50%) ,R% (50%, 2%) 

INPUT "NET NAME";N$ 

1 FETCH CRT NETS 

I 

OPEN M$+".NCL" FOR INPUT AS FILE 1% 

DIM #1%,N% (5000%) 

1 FETCH PLACEMENT 

I 

OPEN N$+".FLD" FOR INPUT AS FILE 2% 

DIM #2%,C8% (2%) ,C7% (1O0%,100%) 

1 FROM PLACEMENT, SET UP M ARRAY SO THAT 
1 M(I,l)=ROW#, M(I,2)=LEFT-MOST COLUMN COVERED 

1 AND M (I ,3) =RIGHT-MOST COLUMN COVERED FOR 

1 CELL NUMBER I 

j 

MAT M%=ZER: 

MAT R%=ZER 

FOR I% = 1% TO C8% (1%) 

FOR J% = 1% TO C8% (2%) 

C%=C7% (I%,J%) 

IF C%=0% THEN 10120 
IF M%(C%,1%)=0% THEN M% (C%, !%)=!%: 

M% (C%,2%)=J%; 

M% (C%,3%)=J%-1% 
M% (C%,3%)=M% (C%,3%)+1% 

NEXT J% 

NEXT 1% 

1 FOR NET IN NET LIST, ENTER ALL CELLS 
1 (WITHOUT PADS) IN T ARRAY 

I 

U1%=1% 

T1%=0% 

IF N%(U1%)=0% THEN 10200 
IF N%(U1%)=-1% THEN 10400 
IF H% (N% (Ul%) ,1%)=0% THEN 10190 
T1%=T1%+1%; 

T% (T1%)=N% (Ul%) 

U1%=U1%+1%: 

GO TO 10150 

1 FIND IF THIS NET IS STRAIGHT BY: 

I 1. STRAIGHT IF ALL CELLS ON SAME CELL ROW 

1 2. STRAIGHT IF LEFT-MOST RIGHT-MOST COL 
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10200 

10205 

10206 
10210 
10230 
10240 

10250 

10260 

10270 

10280 

1029Q 

10330 

10310 

10311! 


10403 

10405 

10410 

10420 

10430 


10440 

10450 

10460 


10470 


! LIES RIGHT OF RIGHT-MOST LEFT-MOST 

! COL 

I 

IF Tl%<2% THEN 10190 
M0%=0%; 

Ml%=999% 

R% (T1%,1%)=R%(T1 %,!%)+!% 

FOR I%=1% TO Tl% 

N%=T% (1%) 

IF I%=1% THEN M2%=M% (N%,1%) : 

GO TO 10260 

IF M%(N%,l%)OM2% THEN M2%=0% 

IF M% (N%,2%) >M0% THEN M0 %=M% (N% , 2 % ) 

IF MS(N%,3%)<M1% THEN Ml %=M% (N% , 3 %) 

IF M0%>M1% THEN 

IF H2%=0% THEN 10145 

NEXT 1% 

R% (T1%,2%)=R% (Tl%,2%)+!% 

GO TO 10145 

! DUMP RESULTS 

I 

• 

PRINT "NET SIZE" ;TA3 (20) ; "NUMBER NETS" ; TAB { 4 5 ) ,• " 
R3=0: 

R4 = 3 

FOR I%=1% TO 50% 

IF R%(I%,1%)=0% THEN 10450 
Rl=R% (I%,1%) : 

R2=R% (1%, 2%) : 

P=R2/R1*1O0; 

R3=R3+R1: 

R4=R4+R2 

PRINT I%;TAB(20) ;R1;TAB(45) ;P: 

PRINT 

NEXT 1% 

PRINT: 

PRINT "TOTAL # NETS ANALYSED" ? R3 ; 

PRINT: 

PRINT " # STRAIGHT" ;R4 : 

PRINT: 

PRINT " % STRAIGHT" ;R4/R3*100 
END 


% STRAIGHT" 
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1 ! 


LITLAY — FORMS REDUCED CHIP IMAGE FOR HAND ROUTING 


10 ! 


10000 

10020 

10040 

10050! 


! MODIFICATION HISTORY 

I 

ON ERROR GOTO 11880 
EXTEND 

DIM CHIP% (100%, 100%) ,NUMNETS% (200%) ,START% (200%) 
! BUILD SCRATCH FILE 


10060 

10380 

10100 

10110 ! 


10120 

10140 

10163 

10180 

10200 

10210 ! 


10220 
13 240 
10260 


10280 

10300 

10310! 


10320 

10340 

10350! 


10360 

10380 

10400 


OPEN "HELP.TMP" FOR OUTPUT AS FILE 5 
DIM #5,T% (53%, 533%) 

T% (50%,503%)=O 

! GET INSTRUCTIONS 

I 

INPUT "NET NAME", NAME. $ 

INPUT "PAPER WIDTH" , LINE. WID% 

INPUT "OUTPUT TO <K3 : > " , OUTPUT$\ 

IF OUTPUT$="" THEN OUTPUT$="KB : " 

INPUT "HEADER <NET NAME> " , HEAL JR$ 

IF HEADER$="" THEN 

HEADER$=NAME.$ 

! FETCH CHIP 

I 

OPEN NAME.$+" .FLD" FOR INPUT AS FILE 1 
DIM #1%,C8% (2%) ,C7% (1O0%,100%) 

NUMROWS%=C8% (1%)\ 

NUMCOLS%=C8% (2%)\ 

MAT CHIP%=ZER (NUMROWS% ,NUMCOLS% ) 

CHIP% (I%,J%)=C7%(I%,J%) 

FOR I%=1% TO NUMROWS% FOR J%=1% TO NUMCOLS% 

CLOSE 1 

\ 

! FETCH CELL-NETS 

j 

OPEN NAME.$ + " .CLN'" FOR INPUT AS FILE 2 
DIM #2, CELNET(5030%) 

! FETCH CELL WIDTHS 

I 

OPEN NAME.$+".WID" FOR INPUT AS FILE 1 
DIM #1,WIDTH% (200%) 

MAT NUHNETS%=ZER\ 

MAT START%=ZER 
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104201 

! FIND NUMNETS, START FOR EACH CELL 

I 

10440 FOR I%=1% WHILE INT (CELNET (I %) ) <500% 

10460 NUMNETS% ( INT (CELNET ( I % ) ) ) = 

NUMNETS% (INT (CELNET (1%) ) )+l%\ 

IF START% (INT(CELNET(I%) ) ) =0% THEN 
START% (INT (CELNET (I %) ) )=I% 

10480 NEXT 1% 

105001 

! SET TRANSISTOR WIDTH 

I 

10520 TRANS. WID%=0% 

10540 FOR I%=1% WHILE INT (CELNET ( I %)) <500% 

10560 IF WIDTH% (INT(CELNET(I%) ) )=0% THEN 10600 

10580 T%=INT(CELNET(I%) )\ 

TRY%=INT( (2* (NUMNETS% (T%)+1%) )/WIDTH% (T%)+.99)\ 
IF TRY%>TRANS. i.'ID% THEN TRANS . WI D%=TRY% 

1O6Q0 NEXT 1% 

10620 IF TRANS. WID%<2% THEN TRANS. WID%=2% 

10640! 

! SET # TRANS / LINE 

I 

10660 TRANS. PER. LINE%=1% 

10680 IF TRANS.PER.LINE%* ( (TRANS. WID%+1%) )+l%<LINE.WID% THEN 

TRANS. PER. LINE%=TRANS. PER. LINE%+1%\ 

GOTO 10680 

10700! 

! ADJUST LINE WIDTH 

I 

10720 TRANS. PER. LINE%=TRANS. PER. LINE%-1% 

10740 LINE. WID%=TRANS. PER. LINE%* (TRANS. WID%+1%)+1% 

10750! 

! OPEN OUTPUT DEVICE 

I 

10760 OPEN OUTPUTS AS FILE 7 
10770! 

! CLEAR NET POINTER 

I 

10780 NET.INDEX%=0% 

10790! 

! CLEAR OUTPUT TEMPLATE 

10800 MAT T%=ZER(NUMROWS%, ( (TRANS. WID%+1%)*NUMCOLS%)+10%) 
10810! 

! FORM L-H EDGE OF CHIP 

I 

10820 T%(I%, !%)=!% FOR I%=1% TO NUMROWS% 

10830! 

! FORM TRANSISTOR BOUNDARIES 
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10840 

10860 

10880 

10900 

10920 

10940 

10950! 


10960 

10980 

10990! 


11000 


11010! 


11020 

11040 

11050! 


11060 

11070! 


11080 

11085 

11090! 


11100 

11110 ! 


11120 

11130! 


11140 

11160 


T%=1%\ 

C% = 0% 

T%=T%+TRANS.WID%+1% 

I%=T% 

T%(J%,I%)=3% FOR J%=1% TO NUMROWS% 

C%=C%+1% 

IF C%<NUMCOLS% THEN 10860 
! INITIALIZE CHIP POINTER TO (1,1) 

I 

R0W%=1% 

C0L%=1%\ 

I% = 2% 

! LOAD CELL NUMBER INTO TEMPLATE 

I 

CELL.NUMI=CH1P% (ROW% ,COL%)\ 

T% (ROW%, I”o) =CELL.NUM% + 1O0O%\ 

T% (R0W%,I% + 1%)=2% 

! CLEAR NET POINTER AND BUMP TEMPLATE POINTER 

I 

NET.INDEX%=0% ’ • 

I%=I%+1% 

! IF LOOKING AT TRANS BOUNDARY, GO TO NEXT TRANS ROUTINE 

I 

IF T% (ROW%,I%)=3% THEN 11180 

! IF NO SPACE BETWEEN HERE AND LAST NUMBER, SKIP TO NEXT LOC 

I 

IF T% (ROW%, I%-1%) >=1000% THEN 11040 
IF CELL.NUM%=0% THEN 11040 

! GET NEXT CELL-NET 

I 

NET=CELNET(START% (CELL . NUM% ) +NET. INDEX% ) 

! IF NET NOT FOR THIS CELL, SKIP 

I 

IF INT(NET) <>CELL.NUM% THEN 11040 

! LOAD NET # INTO TEMPLATE 
! AND GO TO NEXT COL 

I 

T% (ROW%, 1%) =INT( (NET-CELL. NUM%) *1000+. 5) +1000% 

NET. INDEX%=NET. INDEX%+1%\ 

GO TO 11040 


11170! 
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! NEXT TRANSISTOR ROUTINE 

I 

11175! 

! BUMP CHIP COL PNTR, TEMPLATE PNTR 

I 

11180 COL%=COL%+l%\ 

I%=I%+1% 

11190! 

i IF ALL CHIP COLS TREATED FOR THIS ROW, 

! LOAD R-H EDGE AND TRY NEXT CHIP ROW 

I 

11200 IF COL%>NUMCOLS% THEN T% (ROW% , I%-1%) =1%\ 

GOTO 11260 

11210 ! 

! IF STILL IN SAME CELL, CONTINUE 

I 

11215 IF CHIP% (ROW%,COL%)=0% THEN 11240 

11220 IF CHIP% (ROW%,COL%)=CELL.NUM% THEN llOGO 

11230! 

! NEW CELL DRAW CELL BOUNDARY AND TREAT NEW CELL 

I 

11240 T% (R0W%,I%-1%)=1%\ 

GOlO 11000 

11250! 

! BUMP CHIP ROW POINTER 

! IF STILL ON CHIP, HANDLE NEW ROW 

I 

11260 ROW%=ROW%+l%\ 

IF ROW%<=NUMROWS% THEN 10980 

11270! 

! LAST ROW TREATED, SAVE POS OF END OF ROW IN END.% 

I X 

11280 END. %=!%-!% 

11290! 

! SET BASE, ROW FOR PRINTOUT 

I 

11300 BASE%=1% 

11320 R0W%=1% 

11330! 

! PRINT PAGE HEADER 

I 

11340 GOSUB 11780 
11350! 

! IF THIS IS LAST PAGE, ADJUST LINE WIDTH TO ACTUAL 
! WIDTH REMAINING 

I 

11360 IF END. %<BASE%+LINE.WID% THEN LINE.WID%=END. %-BASE%+2% 
11370! 

! PRINT TOP OF CELL ROW 

I 
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11380 

11390! 


11400 


11420 

11440 

11450! 


11460 

11480 

11500 

11520 

11540 

11560 


11580 

11590! 


11600 


11620 

11630! 


11640 


11650! 


11660 

11670! 


11680 

11690! 


PRINT #7,STRING$ (LINE .WID%-1% , ASCII ("#")) 

! CLEAR CELL ROW STRINGS 

I 

A$=" "\ 

B$=" ”\ 

C$ = " " 

FOR C0L%=3ASE% TO BASE%+LINE . WID%-2% 

T%=T% (ROW%,COL%) 

! ADD APPROP. NON-NUMERIC CHARS TO STRINGS 

I 

IF T%>=1000% THEN 11600 
IF T% = 0% THEN D$ = " *' 

IF T%=1% THEN D§="#" 

IF T%=2% THEN D$="-" 

IF T% = 3% THEN D$ = '':" 

A$=A$+D$\ 

B$=B$+D$\ 

C$=C$+D$ 

GOTO 11620 

! NUMBER ENCOUNTERED IN TEMPLATE-- CONVERT TO 
! CHARS AND ADD ONE CHAR TO EACH STRING 

I 

P$=NUM$ (T%-1O00%)\ 

P$=CVT$$ (P$,6%)\ 

P$=P$+" " WHILE LEN(P$)<5%\ 
A$=A$+MID(P$,1,1)\ 

B$=3$+MID(P5,2,1)\ 

C$=C$+MID(P$,3,1) 

NEXT COL% 

! PRINT CELL ROW STRINGS 

I 

PRINT #7,A$\ 

PRINT #7,B$\ 

PRINT #7,C$ 

! BUMP TEMPLATE ROW PNTR 

I 

ROW%=ROW%+l%\ 

IF ROW%<=NUMROWS% THEN 11360 
! ALL ROWS HANDLED — PRINT CHIP BOTTOM 

I 

PRINT #7,STRING$ (L INE . WID%-1 % , ASC I I ( " # " ) ) 

! SET UP POINTERS FOR NEXT PAGE 

I 
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11700 BASE%=C0L%+1%\ 

IF BASE%> (TRANS. WID%* (NUMC0LS%+1%)+1%) THEN 11880 
11720 GOTO 11320 
117701 

! HEADER PRINTING 

I 

11780 IF BASE%>1% THEN PRINT #7,CHR$(12%) 

11800 PRINT #7," " FOR 1=1 TO 3 

11820 PRINT #7,HEADER$ + " AT '•+TIME$ (0 ) +" ON ”+DATE$(0) 

11840 PRINT #7," •' FOR I% = 1% TO 3% 

11860 RETURN 
118701 

1 ERROR PROCESSOR 

I 

11880 CLOSE 1,2,7 

11900 PRINT ERR, ERL 

11920 END 
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EXAMPLE PLACEMENTS 

« 

System-produced placements for the NASlOl, NAS15, and 
SAUCKT networks are shown in this section. 
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SAUCKT NETWORK LAYOUT 


####### 

#2-2 2 #2-2 233 #2-7 3 3 

#1-3 6 #4-7 9 0 1 #6- 02 

# - # - # - 

###############################»# 
#2-2 2 #2-2 2 2 #2-2 3 3 

#3-8 9 #2-3 7 8 #5-3 1 2 

# - # - #- 

##############################■### 
#5-9 1 #6-8 111 #1-8 1 1 

#-0 #-012 #1-45 

# - # - #- 

######################## ######### 


### 
# 1 - 
# 6 - 
# - 

# # # 
# 2 - 
# 0 - 
# - 

### 
# 1 - 
# 2 - 

# - 

J L 

11 n n 


#################### 
2222 # 1-1 2 # 

0123 #5-9 0 # 

# — # 

####### #### 55 ?####### 


2 

1 


# 1-1 1 # 

#4-4 9 # 

# - # 

#################### 
1 i #1-1 22 # 

5 6 #9-4 25 # 

# - # 

####n####l;##H####### 


#4-2 8 9 #1-7 1 1 #1-8 1 2 #1-1 111 #1-7 1 2 # 
# - #0-13 #7-8 4 #3-4 6 7 8 ?f&- 7 4 # 
#- #- #- #- #- # 
######################################################## 
#9-2 1 1 #2-3 4 #1-1 2 3 #3- #0- # 
#-23#- #- #- #- # 
#- #- #- #- #- # 
############################################ #n########## 

#8-5 7 #3-2 456 #7-1 6 #0- #0- # 
#- #- #- #- #- # 
#- #- #- #- #- # 
######################################################## 
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